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DU MÊME AUTEUR AUX ÉDITIONS DU PSI : 


Le basic de A à Z 

Le basic et ses fichiers - Tomes 1 et 2 
Basic pour tous 

Oric pour tous 

52 programmes, Oric pour tous 

Le cahier du Basic sur Oric 

L'Apple et ses fichiers - Tome 1 

Apple pour tous 

36 programmes, Apple pour tous 
Commodore 64 pour tous (avec Gérard Foucault) 
Commodore 64, Méthodes pratiques 
MOS5 et T07/70 pour tous 

MOS et T07/70, Méthodes pratiques 
Spectrum pour tous (avec Marcel Henrot) 
BASIC MSX, Méthodes pratiques 


PRÉSENTATION 


Destiné à un public déjà initié à la micro-informatique, le 
"BASIC AMSTRAD : Méthodes Pratiques” répondra à votre 
attente de perfectionnement. Jacques Boisgontier, auteur 
du best-seller “Le Basic et ses fichiers”, y adopte une dé- 
marche originale en présentant les instructions du Basic 
AMSTRAD au fur et à mesure de vos besoins. 


Si le “BASIC AMSTRAD" ne s'adresse pas aux débutants, 
| comprend cependant une prise en main suivie des ins- 
tructions de base, donnant ainsi les notions nécessaires à 
la compréhension du texte. 


Loin d'être une liste sèche d'instructions, cet ouvrage pro- 
pose quantité de programmes-exemples dans lesquels 
vous découvrirez de nombreuses astuces utiles. 


Cet approfondissement du langage Basic AMSTRAD est 
complété par un chapitre “programmes” où, du graphisme 
à la gestion, vous pourrez mettre en application toutes vos 
Connaissances, et créer de très belles pages-écran, À vous 
de jouer | 
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LE CLAVIER 


Si vous possédez un CPC 664, consuitez le chapitre 14 page 157. Pour un CPC 6128 
consultez le chapitre 15 page 167. 


À la mise sous tension, apparaît le message : 
Amstrad 64K MicrocomPuler (Cwy132 


1924 Amstrad Consumer Electronics ble 


and Locomotive Softuare Ltd, 


BASIC 1.8 


AMI TI TT ES 
WIE 


TAB | Q 


Cws[als| LIIIII TI 
our BRL 


ESPACE CTRL 


Voyons le rôle des touches essentielles : 





ENTER Si vous frappez “PRINT 4+5” (afficher 4+5), il ne se passe rien. Pour 
obtenir un résultat, il faut “valider” la ligne frappée avec la touche ci- 


contre que nous appelons [ENTER] 
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A la mise sous tension, le clavier est en minuscules. Pour le positionner 
CAPS en majuscules, appuyer sur|ICAPS 
Une seconde pression sur CAPSl/fait passer en minuscules. 


Cette touche, en bas du clavier, déplace le curseur d'une position à 
ESPACE droite, sans écrire, permettant ainsi d'introduire des espaces dans le 
texte frappé. 


La touche|SHIFT|permet d'accéder aux caractères du haut des touches 
SHIFT à deux caractères. 


— || faut d'abord appuyer sur cette touche. 
— Puis maintenir cette touche tout en appuyant sur le caractère désiré. 


Exemple : Pour obtenir le caractère “quillemet”, appuyer sur les deux touches ci-des- 
sous simultanément. 


SHIFT 


Essayez de frapper : PRINT “BONJOUR” 


= La touche|DELlefface le caractère à gauche du curseur. 
CLR Efface le caractère sous le curseur. 


En appuyant sur cette touche une fois, vous suspendez l'exécution d'un 

ESC programme qui se poursuit en appuyant sur une touche quelconque. 
En appuyant deux fois sur ESC vous stoppez l'exécution d'un pro- 
gramme. 


oi le programme est en attente sur une instruction[INPUT] la frappe de 
ÉSCune seule fois interrompt le programme. 


Cette touche permet d'accéder aux caractères dont les codes sont 
CTRL compris entre 1 et 31. 


Pour CTRL A, vous obtenez “|”. 
Pour CTRL B, vous obtenez “ 1”. 


Ces caractères ne sont pas ceux obtenus en frappant PRINT CHRS$(X). 


CTRLISHIFT ESC! Nitialise le système (comme une mise sous tension). Il faut appuyer 
simultanément sur les trois touches. 


En appuyant sur[CTRL] et[ENTER|(du pavé numérique) le message 
CTRLIENTER| “RUN” apparaît. Ceci permet de charger et d'exécuter un programme 
sur cassette. 


L'INAIDLS ESLN EVAZRAIN | 


L’ÉCRITURE DE PROGRAMMES 


POUR ÉCRIRE UN PROGRAMME 





il suffit de frapper les instructions en leur affectant un n° de ligne. 


N® des instructions PRINT " JOUR: 
Den Rs y ar, «(He 
Demande 


BOHJOUR 

BONJOUR 

BONJOUR Appuyez sur ESC 2 fois 

Break in 29 pour stopper l'exécution 
INSERTION D’UNE LIGNE 


Pour insérer une ligne entre 10 et 20, on choisit un n° de ligne intermédiaire (15 par 
exemple). 


15 Pri nt "HOHS El R"> 
List 
19 PRINT "EOHJOUR" 


15 PRIHT "MONSIEUR" 
26 GOTO 18 


SUPPRESSION D’UNE LIGNE 
Il suffit de frapper le numéro de ligne suivi de[ENTER. 


15 

#e 

a disparu À, 13 PRÉNT "BONJOUR" 
28 GOTO 19 


Chaque ligne ne doit pas excéder 255 caractères. 
D Tout ce qui suit REM ou ‘ sur une ligne de programme est du commentaire. 
2 Plusieurs instructions sur une même ligne doivent être séparées par “:”. 
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L'ÉDITEUR DE PROGRAMME 


Il existe deux modes pour modifier une ligne de programme déjà validée par| ENTER 


EDIT n° ligne 





C'est le mode le plus simple à utiliser. Pour remplacer le caractère “M” par “N” dans 
la ligne 10, il faut procéder ainsi : 


10 PRINT “BOMJOUR" 


Q Frapper EDIT 10 
La ligne 10 est alors affichée avec le curseur au début de la ligne. 


19 PRINT "BOMJOUR" 


O Positionner le curseur après le caractère à supprimer avec la flèche — puis appuyer 
Sur la touche DEL. Le caractère “M” disparaît. 
Vous pouvez également placer le curseur sur le caractère à Supprimer et utiliser la 
touche CLR pour supprimer le caractère. 


1 Frapper le caractère à insérer (N). 
J Valider la ligne modifiée avec la touchel ENTER 


La flèche gauche < permet de déplacer le curseur à gauche et ainsi d'effectuer d'autres 
Corrections sur la même ligne. 


Pour annuler une modification en cours, appuyer sur ESC. 
Pour modifier une ligne en cours de frappe, les règles sont les mêmes. 


Lorsqu'une erreur de syntaxe est détectée à l'exécution, BASIC affiche la ligne erronée 
qui peut ainsi être modifiée en mode EDIT. 


MODIFICATION PAR RECOPIE 





Ce mode est plus délicat à utiliser. || permet de recopier une ou plusieurs parties d'une 


ligne avec la touche|[COPY\ de “sauter” les caractères à supprimer en appuyant sur 
“SHIFT +”. 


Pour modifier la ligne : 10 PRINT “BOMJOUR” 


D Positionner le curseur sur la ligne 10 en appuyant sur[SHIFTIet “ T ” simultanément. 
Il apparaît alors deux curseurs : le curseur principal et le curseur de copie. 


0 0 


CI 


D 
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Curseur PRINT “BOMJOUR" 


de copie 
principal 
Recopier le début de la ligne à modifier avec la touche|COPY\ jusqu'à la lettre “O”. 
“10 PRINT “BO” est alors affiché à la suite du curseur principal. 


10 FRINT “BOMJOUR" 


ligne 


“Sauter” la lettre à supprimer en appuyant sur SHIFT|et(—] simultanément. 
Frapper la nouvelle lettre (N) qui est alors ajoutée à la ligne recopiée. 
Recopier le reste de la ligne avec la touche 

Valider avec {ENTER 


La ligne en cours de recopie peut être modifiée comme dans le mode EDIT, 


Une modification en cours peut être annulée par[ESC] 


Rien ne vous empêche de composer une ligne à partir de plusieurs lignes. 


Le mode d'édition par recopie peut également être utilisé pour modifier une commande 
mal frappée. 


Pour sauvegarder un programme sur cassette ou disquette, utiliser la commande SAVE 
“nom-programme” (cf. chapitre “Commandes” page 18). 


Exemple : SAVE “ESSA/”. 


La commande “LOAD” permet de lire un programme sur cassette. 


Exemple : LOAD “ESSA/". 


| programme 
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LES COMMANDES BASIC 


un AUTO # CONT m NEW # SPEED WRITE 
um CAT # DELETE m RENUM = TRON 

# CLEAR « LIST # RUN m TROFF 

ä CHAIN #5 LOAD #= SAVE nm WIDTH 

# CHAIN MERGE # MERGE 


Ces commandes sont acceptées après l'affichage de READY. Elles peuvent aussi être 
écrites comme instructions dans un programme. 


AUTO n° ligne départ, incrément 





Génère un numéro de ligne à chaque fois que vous appuyez sur ENTER. On sort du 
mode “AUTO” en appuyant sur “ESC”. 


AUTO * numerote de 14 en 19 3 Partir de 
AUTO 199 * numerote a Partir de 19@ ‘ = 
AUTO 159,5 " numerote de 5 en 5 


Si un numéro de ligne existe déjà, le caractère “*” est affiché. 


CAT 





Donne la liste des programmes et fichiers sur cassette ainsi que leur type. 


$: Programme BASIC 

% : Programme protégé 

“: Programme ou fichier ASCII 
& : Programme ou fichier binaire 


L'affichage de “OK” signifie que les fichiers ou programmes ont bien été lus. 


CLEAR 





Efface les variables et tableaux. 


CHAIN nom programme, n° ligne 





Charge le programme spécifié (normal ou ASCII) et provoque son exécution. L'ancien 
programme est supprimé. 


CHAIN "PROG" ? charSe PROG et lance son execution 
CHAIN "PROG",168 ’ lance l'execution en 196 


CHAIN MERGE nom programme,n° ligne, DELETÉ ligne1-ligne2 


Concatène le programme spécifié (normal ou ASCII) et provoque son exécution au 
numéro de ligne spécifié. Les variables ne sont pas remises à zéro. 


ON ERROR est annulé, le pointeur de DATA est positionné en début de DATA. DE- 
FINT, DEFREAL et DEFSTR sont annulés. 


CHAINH MERGE "FROG",199 
CHAIN MERGE "FROG",199,DELETE 29 


CONT use EE ner 25. 
Continue l'exécution d'un programme après arrêt de celui-ci par STOP ou ESC (2 fois). 


N'est pas accepté si le programme a été modifié (dans ce cas, utiliser GOTO XX). 


DELETE n° ligne début - n° ligne fin 





Supprime les lignes de programme entre les limites indiquées. 


DELETE " efface toutes les lignes 
DELETE 19-38 " efface les lines 19 3 29 
DELETE -359 * efface les lignes jusqu'a 39 


AL NID LIN LIN IN L/2) DAYE 1! L7 


LIST n° ligne départ - n° ligne fin 


Liste les lignes de programme entre les limites indiquées. 


LIST * liste tout le Programme 
LIST 19-39 * liste de 19 2 38 

LIST -3g * liste jus9ua38 

LIST #3 * liste sur l'imPrimante 


LIST 19-29,#3 


LOAD nom-fichier, adresse 


Charge le programme spécifié (normal ou ASCII). L'ancien programme en mémoire 
est effacé. 


LOAD "# * charge le Premier Programme ou fichier binaire 
LOAD "PROG" * charge le ProSramme FROG,. 
MERGE nom-programme 





Concatène le programme spécifié (sauvegardé en ASCII par SAVE “PROG”,A) au 
programme en mémoire centrale. Les lignes de programmes dont les numéros sont 
‘dentiques aux numéros des lignes déjà en mémoire remplacent celles-ci. 


Cette commande est généralement utilisée pour ajouter des sous-programmes à un 
programme. 


Nous avons observé qu'un programme BASIC normal est également concaténé. 


tn rl 4 


Efface le programme en mémoire centrale. 





RENUM nouveau numéro, première ligne, incrément 
“nouveau numéro” qui est par défaut égal à 10 spécifie le premier numéro de la ligne. 


‘première ligne” spécifie la ligne où doit recommencer la renumérotation. C'est la 
première ligne par défaut. 


“incrément” représente l'incrément à utiliser pour la renumérotation. Il est égal à 10 
par défaut. 


REHUM ° renimerote de 19 en 18 
RENUNM 199 * la Premiere liÿne devient 19% 
REHUM 199,29,5 " a Partir de 24 de 5 en 5 


RUN 





Exécute le programme en mémoire au premier numéro de ligne. Toutes les variables 
sont remises à zéro. Les fichiers sont clos. 


RUN n° ligne 
Exécute le programme à partir de la ligne spécifiée. 


18 RUN 144 lante l'execution en 1%f 


RUN nom-programme 


Charge un programme et lance l'exécution. 


RUN "FARDG" * charge et execute le Prosramme PRÔÜG 
RUH !"" * charüe et execute le Premier ProSramme 


SAVE nom-programme, type 


Sauvegarde un programme sur cassette, LOAD permet de relire le programme. Si le 
type est égal à “P”, le programme est protégé ; il ne peut être listé. Si le type est égal 
à “A”, le programme est sauvegardé en ASCII, c'est-à-dire sous forme compactée. II 
peut alors être ajouté à un autre programme avec la commande MERGE. Le program- 
me peut également être lu comme un fichier séquentiel. 
SAYE "PROG" sauvs9arde le Prosramme sous le nom de PROG 
SAYE “" sauvegarde s3n3 donner de nom 


SAYE "PROG",P * sauvegarde sous forme ProteSee 
SAVE "PROG". A * sauvegarde en ASCII SCf MERGE gt CHAIHN MERGE ) 


SAVE nom-fichier,B,adresse départ, longueur, adresse-exécution 


Sauvegarde une partie de la mémoire. 


SAVE M"DES",B,8C099, 44999 sauvegarde l'ecran SraPhidue 


SPEED WRITE vitesse 


Détermine la vitesse de sauvegarde sur cassette (0 ou 1). La vitesse de sauvegarde 
par défaut est 0 (1000 bauds). 


SPEED WRITE 1 spécifie une vitesse de sauvegarde de 2000 baudés. 


TRON 


Permet de visualiser les numéros des instructions exécutées (cf. chapitre “La mise au 
point des programmes”). 


TROFF 





Annule 'TRON}. 


WIDTH largeur édition 


mené 
Détermine la largeur d'édition à l'imprimante. 


WIDTH 70 


Rappelons que PRINT FRE(0) donne l'espace libre en mémoire centrale. PRINT 
FRE(" ”) réorganise la mémoire. 


LES VARIABLES 


NOMS 





Les noms de variables s’écrivent avec plusieurs lettres ou chiffres mais le premier 
caractère doit être une lettre, 


Un nom de variable ne doit pas être un mot-clé du BASIC. 


TYPES 





|| y a trois types de variables : les variables entières réelles, et les chaînes de carac- 
tères. Le type est précisé par un caractère à droite de la variable (%,1,$). 


Exemple : X% = 5 (variable du type entier). 


Par défaut, lorsque le type n'est pas précisé, les variables sont réelles. 


Caractère de 
Type déclaration Exemple 
Entières % X % = 123: JOURSY% = 365 
(nombres entiers compris entre 
— 32768 et + 32767) 
Réelles XI = 123.456 
(6 chiffres significatifs) 
Chaînes de caractères $ NOMS$=« DUPONT » 


de longueur variable 
(255 caractères au maximum) 


Les variables de même nom avec des types différents sont considérées comme des 
variables distinctes (A et A$ par exemple). 


CLEAR et RUN initialisent les variables avec des valeurs nulles (0 pour les variables 
numériques, chaîne vide pour les variables chaînes). 


Les variables entières sont représentées sur 2 octets et les variables réelles sur 5 octets. 


Au-delà de 9 chiffres, les valeurs des variables réelles sont affichées sous forme man- 
tisse-exposant. 


CONSTANTES HEXADÉCIMALES ET BINAIRES 


Des constantes hexadécimales sont spécifiées par “&h” ou “&” devant le nombre. Des 
constantes binaires sont définies par “&x” devant le nombre. 


10 PRINT &A1,&8X1101 


RUN 
161 135 


INDLRUL LIUNS VE DADE !: 21 


Des constantes hexadécimales définies dans des DATA pourront être lues ainsi : 


13 CATA &HFF 
29 READ %x 
56 PRINT %x 


293 


DEFINT - DEFREAL - DEFSTR 
(définition globale de type de variables) 


DEFtype lettres 


DEFREAL J 


DEFSTR A-C 


DEFINT I-N, R-T 


189 DEFIMHT 2x 
25 a=2. 1 
39 a31=2,3 


Permet de définir globalement le type de toutes les variables 
dont les noms commencent par les lettres spécifiées, plutôt que 
de déclarer explicitement le type de chaque variable par un 
caractère (%, $, !). 


On peut cependant déclarer explicitement par un caractère (!, 
%, $) un type de variable qui aurait été défini par DEFtype. La 
déclaration explicite est prioritaire. 


Toutes les variables commençant par J et non déclarées expli- 
citement par un caractère (!, %, $) sont des variables réelles. 


Toutes les variables commençant par une lettre À, B ou C sont 
du type chaîne. 


Spécifie deux domaines de variables entières. 


* declaration exPlicite Prioritaire 


49 PRINT 4,23! 


c 2 « 


CONVERSION DE TYPES DE VARIABLES 


3 





_e stockage d'une valeur se fait suivant le type de la variable. 


19 44=123.45 
24 FRINT 23% 


123 


LES EXPRESSIONS ET OPÉRATEURS 


Une expression peut être simplement une constante du type numérique ou chaîne, une 
variable ou une combinaison de constantes et de variables liées par des opérateurs. 


Exemple : (X — 2) + 4/6 


Les opérateurs effectuent des opérations sur des valeurs. lIs sont classés en trois 
catégories : 


1/Arithmétiques 


2/Relationnels 
3/Logiques 


OPÉRATEURS ARITHMÉTIQUES 





ù Exponentiation 
"4 Multiplication Division 
+ — Addition Soustraction 


MOD Modulo 
\ Division entière 


L'évaluation des expressions se fait avec l'ordre des priorités des opérateurs défini ci- 
dessus. 


5 + 10/5 est égal à 7 


Des parenthèses permettent de changer cet ordre. Ce sont d’abord les expressions 
entre parenthèses qui sont évaluées. 


(5 + 10)/5 est égal à 3 
X MOD Y : L'opérateur MOD donne le reste de la division de X par Y. 
PRINT 100 MOD 3; 1 


X\Y : Donne la partie entière d'une division. X et Y doivent être compris entre — 32768 
et + 32767. 


1003 — 33 


OPÉRATEURS RELATIONNELS 





IS comparent 2 valeurs. Le résultat est soit égal à — 1 (condition vraie), soit égal à O 
(condition fausse). Ceci permet de prendre une décision (par IF... THEN... ELSE) 


1001F X<0 THEN PRINT « NOMBRE NEGATIF » ELSE PRINT « NOMBRE POSITIF » 
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= Egalité 

< Inférieur 

> Supérieur 

<>  Différent 

<= Inférieur ou Egal 


OPÉRATEURS LOGIQUES : AND-OR-XOR 


ls testent des relations multiples. Le résultat de l'opération logique est soit faux (égal 
à 0) soit vrai (égal à — 1) et permet ainsi de prendre une décision par IF... THEN... 
ELSE. 


100 IF A<0O AND B<0 THEN PRINT « A et B SONT NEGATIFS » 





es priorités d'évaluation des expressions comportant des opérateurs arithmétiques, 
relationnels et logiques sont : 


1 Parenthèses 

210pérateurs arithmétiques 
3/Opérateurs relationnels (1 seul niveau) 
4 Opérateurs logiques 


- exemple ci-dessous utilise directement le résultat d'une comparaison (sans IF) qui 
est égal à —1 (vrai) ou à 0 (faux). 


PE Pc 2 ds maximum de 2 nombres 


24 mxm=-é( ab 2#a+6 46 b 2#b 2 
2 PRINT mxm 


3 


Remarque : La fonction MAX(X,Y) donne directement le maximum de deux nombres. 


OPÉRATEURS BOOLEENS 


La manipulation de bits et les opérations booléennes sur ces bits s'effectuent avec les 
opérateurs AND, OR, XOR. 


Ces derniers opèrent sur des groupes de 16 bits au plus qui sont spécifiés par des 


nombres allant de —-32768 à +32767 (représentés en complément vrai de facon in- 
terne). 


Les opérations s'effectuent BIT à BIT. 


Exemple : 15 ————— ;>(000000000001 111 
4 — }>0000000000000100 

15 AND 4 ————>0000000000000100 ———>4 
Exemple : 4 —————— > (0000000000000100 
2 ——>0000000000000010 

40R2 ———————>0000000000000110 ———>6 
Exemple : —-1 ———# in ISERE 
——>0000000000000000 


—1 AND 8 —————>0000000000001000 —————;>8 
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L'ÉCRAN 


s MODE E INK s SPEED INK = POS 
s PEN = CLS m LOCATE 5 VPOS 
s PAPER & BORDER # WINDOW # WINDOW SWAP 


La gestion des couleurs sur AMSTRAD est articulée autour d’une table de correspon- 
dance. 


Nous vous conseillons de lire attentivement ce chapitre. 


C'est volontairement que nous n'avons pas présenté la syntaxe complète de PEN, 
APER et INK en début de chapitre. 


MODE numéro 


MODE détermine le nombre de caractères par ligne et le type de résolution 
cf, chapitre “Graphique haute résolution”). 


MODE 0 : 20 caractères par ligne 

MODE 1 : 40 caractères par ligne 

MODE 2 : 80 caractères par ligne 

À la mise sous tension, l'écran est en MODE 1. 
Frappez en mode direct : 


MODE 2 
'affichage se fait alors en 80 colonnes. 


PEN case 
PAPER case 


Nous expliquons ces instructions pour le MODE 1 : 


couleur 





PAPER 0 — 
PEN 1 — 


© NO À © 


Table de correspondance pour MODE 1. 
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La couleur du stylo (PEN) et du papier (PAPER) se définit à l'aide d’une table de 
correspondance, 


A la mise sous tension, PAPER est égal à 0 et “pointe” vers la case O0 de la table de 
Correspondance (couleur 1) ; PEN est égal à 1 et “pointe” vers la case 1 de la table 
(couleur 24). 


PEN 3 fait pointer vers la case 3 (couleur 6). 
PAPER 2 fait pointer vers la case 2 (couleur 20). 


Essayez en mode direct : 


PEN 3 
PAPER 2 


INK case, couleur 





Change la couleur d'une case de la table de correspondance. INK 0,26 place la couleur 
26 dans la case 0. Si PAPER est égal à 0, la couleur de fond devient blanche. 


0 me L 7 
1 [24 
2 | 20 
3 [6 


INK 1,0 place la couleur 0 dans la case 1. Si PEN est égal à 1, tout ce qui était écrit en 
couleur 24 devient noir. 





Pour le MODE 2, la table de correspondance ne contient plus que 2 cases. Pour le 
MODE 0, la table comporte 16 cases. 


Essayez le programme suivant : 


16 MODE 6 

29 FÜR P=1 TO 15 
36 PEN P 

49 PRINT "stylo":;p 
0 NEXT P 


stylo 1 
stylo 2 
sty10 3 
stylo 4 
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ll écrit avec les 16 couleurs de la table. 


Grâce à INK, la couleur d'un texte déjà écrit peut être modifiée très rapidement. Le 
programme ci-dessous permute 15 couleurs de 15 lignes de texte. 


19 mm ecriture texte 
cû MODE 9 
36 INK 6,24 


49 DIM «152 

54 FOR P=1 TD 15 

69 CCP )=P 

79 FEN P 

239 PRINT LEFTSé "AMSTRAD, . au." 3 P) 
9 MEXT P 

198 ’-—-- permutation couleurs 
118 x=ct 1) 

128 FÜR P=1i TO 14 

139 CP 2=ccP+12 

149 INK P,:cCP2 

154 NEXT P 

168 cc152=x: INK 3,c( 15) 

179 FOR tP=1 T9O 4BY:NEXAT tP 
159 GOTO 119 


Le programme ci-dessous affiche 16 traits verticaux représentant les 16 couleurs de la 
table de correspondance en MODE 0. 


19 MODE 6 

29 FOR P=1l TO 15 
38 PLOT P#59,1ÿ5,P 
45 DRAH P#39,289,P 
99 MEXT P 


CLS 


Cette instruction permet d'effacer l'écran. 


TABLE DES COULEURS 
n° Couleur de l'encre n° Couleur de l'encre n° Couleur de l'encre 
0 Noir 10 Turquoise 19 Vert Marin 
1 Bleu 11 Bleu Ciel 20 Turquoise Vif 
2 Bleu Vif 12 Jaune 21 Vert Citron 
3 Rouge 13 Blanc 22 Vert Pastel 
4 Magenta 14 Bleu Pastel 23 Turquoise Pastel 
5 Mauve 15 Orange 24 Jaune Vif 
6 Rouge Vif 16 Rose 25 Jaune Pastel 
7 Pourpre 17 Magenta Pastel 26 Blanc Brillant 
8 Magenta Vif 18 Vert Vif 
9 Vert 


TABLE DE CORRESPONDANCE DES COULEURS 
À LA MISE SOUS TENSION 





n° stylo/papier Couleur 
Mode 0 Mode 1 Mode 2 
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Remarque importante : Lorsque vous utilisez PAPER 0 et PEN 1 par exemple, si les 
deux cases 0 et 1 contiennent la même couleur, le texte affiché n'apparaît pas. Pour le 
faire apparaître, frapper en mode direct : 


INK 0,12: INK 1,24 : PAPER O : PEN 1 


INK case, couleur1, couleur2 





Lorsque deux couleurs sont définies dans INK, les deux couleurs sont affichées alter- 
nativement. 


BORDER couleur, couleur2 


Définit la couleur du pourtour de l'écran. Lorsque deux couleurs sont spécifiées, les 
couleurs sont affichées alternativement. 
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SPEED INK case, tempsl, emps2 


Définit les temps d'affichage pour “couleur1” et “couleur?” lorsque deux couleurs ont 
été définies dans “INK case, couleur1, couleur2”, Le temps est défini en 1/50° de 


seconde. 


19 INK 1,24:5 * couleur £4 &t 6 


11 


4 
cn SPEED INK 199,29 ‘ lzec et ,22e 


JEU DE CARACTÈRES 





Le programme ci-dessous affiche le jeu de caractères de l'AMSTRAD. 


AU memes jeu de caracteres AMSTRAD 
26 FÜR c=32 TO 255 

39 PRINT CHR&( EC); 

+4 MEXT € 


| existe une série de caractères accessibles au clavier avec CTRL. 


Le programme suivant affiche la table de codes. On trouvera en annexe la liste des 
codes ASCII. 


EM Cmmemeementementinr affichase codes ecran 
£9 MODE 2 

34 debutz=31 * code debut 

45 ncol=19g "nb de colonnes 
Jg nl=z£4 

54 ‘ 


79 FOR 1=i TD nl 

89 FÜR clzi TO col 

29 cd=é 1-1 kncol+cl+debut: IF cd:255 THEH EH 
156 PRINT cd; CHRS$C Cd ÿ5 

119 MHEXT Cl 

128 PRINT 

138 NEXT !I 


LOCATE X,Y 





Positionne le curseur texte dans la colonne X et à la ligne Y. 


Pour LOCATE, l'écran est divisé en 25 lignes de 20, 40 ou 80 colonnes suivant le mode 
défini par l'instruction MODE. 


Pour LOCATE, l'origine de l'écran est en haut et à gauche. 


19 MOCE 1 
29 LOCATE 19,15 * colonne 19, ligne 15 
39 FRINT "COUCOU" 


O1 PL LIL et À LOTUS LL LnT 4417 


COUCOU 





Le programme ci-dessous fait défiler le message « AMSTRAD ». 


15 
LE 


Ski 


mm en5212ne 
MODE 1 
a$= "AMSTRAD, ,..,." 


49 : 


52 
59 
Ta 
38 


LOCATE 14,1B:PEINT 4% 
AS=RILHTSE 4%, 1 LEFT a$, LEMC 4% 1-1 5 
FÜR tP=1 T0 19S:MHEXT tp 

GOTO 5 


WINDOW #numéro fenêtre, gauche, droite, haut, bas 


WINDOW définit une fenêtre d'écran. L'écriture se fait seulement dans la fenêtre adres- 


see. 





ligne 1 


fenêtre 1 


on 0 mms exen? Le de fenetre 


59 WIHCOW #1,29,25,12,16 
49 PEN #1:1:PRINT #1,"lignel fenetrei" 


56 PEN #1,3:PRINT #1,"li9nel fenetrel" 


a | 
F4 PRINT ‘“lianei" 
28 FRINHT "ligne?" 
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-e message ‘ligne1 fenêtre1” est affiché sur deux lignes. 

Les couleurs de stylo, de papier, peuvent être définies pour chaque fenêtre. 
Les syntaxes complètes de PEN, PAPER, CLS et LOCATE sont : 

PEN # n° fenêtre, stylo 

PAPER # n° fenêtre, papier 


CLS # n° fenêtre 
LOCATE # n° fenêtre,X,Y 


POS (# n° fenêtre) 
VPOS (# n° fenêtre) 





Fournit la position du curseur texte dans la fenêtre spécifiée. 


19 PRINT "ASDF": 
29 PRINT POSC#9) 


14 CLS 
29 LOCATE 18,2S:PRINT “COUCOU” ; 
39 PRINT VPOUSé 492 


WINDOW SWAP fenêtrel. fenêtre2 


Commute deux fenêtres. Ce qui s'écrivait dans la fenêtre 1 s'écrit dans la fenêtre 2. 


MOCLE 1 \ 

29 UIHDOW #i,19,29, 19,28 

38 WINDOW 4#2,22,32,2,8 

49 PRINT #2."fenetre2" 

59 PRINT #1, "fenétre 1" 

69 WINCOW SURF 1,2 

79 PRINT #{,"suite fenetre 1" 





Rae, A 2 ss 


L'ENTRÉE AU CLAVIER 


# INPUT 8 ON BREAK 
# LINE INPUT n KEY 

# INKEYS = KEY DEF 
# INKEY = JOY 

& SPEED KEY 


INPUT “message” ; variable 1, variable RS 





Permet d'entrer, pendant l'exécution d'un programme, une ou plusieurs valeurs nu- 
mériques ou chaînes de caractères. Les variables spécifiées dans INPUT sont sépa- 
rées par des virgules. 


Après l'affichage du message, l'opérateur doit entrer les valeurs des variables dans 
l'ordre défini par l'instruction INPUT, en les séparant par des virgules. 


Exemple avec une variable : 


19 INPUT "Yotre no inomé 
29 PRINT nom$ 


run 
Votre nom ? DUPONT 
OUPONT 


Exemple avec deux variabies : 


19 IMPUT "MHom,;ade ";nom$, 29e 
ES * 
€9 PRINT nom$,a%e 


run 
DUPONT 39 


Pour une variable chaîne, si l'opérateur appuie sur ENTER sans entrer de valeur, la 
variable chaîne devient vide. Une variable numérique prend une valeur égale à 0. 


Si l'opérateur entre une chaîne alors que c'est une valeur numérique qui est attendue, 
le message “REDO FROM START” est envoyé. 


19 INPUT "Age ";249e 


run 
49e 7 DUPONT 
FRedo from start 
Age 7 
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Les chaînes comportant une virgule (séparateur) doivent être entrées entre guille- 
mets. 


Exemple : 


Rue? "{i,rue NOBEL" 





INPUT # n° fenêtre, “message” ; variable 1, variable 2... 


rontionne comme INPUT. 


LINE INPUT « MESSAGE » ; variable chaîne 





Permet de lire toute une chaîne au clavier, sans tenir compte des séparateurs tels que 
a virgule comme c'est le cas avec l'instruction INPUT. C'est seulement un retour- 
chariot qui délimite la fin de la chaîne qui ne peut cependant pas excéder 

255 caractères. 


15 LIHE IHPUT "Ruet "rues 
29 PRINT rue$ 


Rue? 11,;rue NOBEL 
li;:rue NOBEL 


Remarque : BASIC n'envoie pas de point d'interrogation à la suite du message comme 
c est le cas avec 'INPUT”. 


INKEYS$ 





NKEY$ lit le clavier en permanence. Si aucun caractère n'a été frappé, la chaîne lue 
‘CS sur l'exemple) est vide. Le caractère frappé au clavier n'est affiché que si le pro- 
gramme l'a prévu (et non pas automatiquement comme c'est le cas avec INPUT). 


Tous les caractères frappés doivent être analysés, y compris le caractère ENTER (code 
ASCII 13) et le caractère “DEL” (code 127), (avec “INPUT” ces caractères sont gérés 
par “Basic”). 


R CLS 
C$S=INKEYS:IF c$="" THEN 38% * boucle d'attente 


49 PRIMHT HSC(cÉ),c$ ‘ affiche le code et le caractere 
5 GOTO 39 


 : 
" 
if 


53 A 
56 B 


Avec INKEYS, le curseur n'apparaît pas. 


 ” , ON Où OT Où Où RTS DRE DT 


Ci-dessous, tant que vous n'appuyez pas sur une touche, le message “APPUYER 
SUR UNE TOUCHE” est affiché. 


13 C&=IHEE"YS 

29 IF c$<>!" THEH END 

39 PRINT "APPuuer sur Une touche" 
49 GOTO 18 


Arpuuer sur une touche 
APpuyer sur une touche 
APPuger sur une touche 
APPuyer sur une touche 
APPuyer sur une touche 


BOUCLE D'ATTENTE 


5 Attend que l'opérateur appuie sur une touche quelconque. 


19 CÉ=INKEYS:IF cé="" THEN 19 
26 PRINT “C'est Parti” 


QD Teste si l'opérateur répond assez vite. 


19 PRIHT "RePondez (O/H)ù Cuite) " 

29 h=TIME 

39 ‘* 

49 r'É=INKE"S:IF r$<2"" THEN 29 

24 IF TIME>h+1498 THEN PRINT "Trop tard" :END 
68 GOTO 4ÿg 


— 


f 
24 ‘ suite 


Le programme ci-dessous saisit une chaîne de caractères. Les caractères frappés 
peuvent être contrôlés dès leur frappe sans attendre la validation par ENTER. 


LD, ‘mme saisie d'une ligne avec INKEYS$ 

36 MODE 2 

48 xs=19:ys5=10 ! coordonness saisie 

59 GOSUB 89 

68 PRINT:PRINT 1i9% 

65 EMD 

D eo eo eo po mn sPam 541516 dans 1i9$% 
5@ l 19$=" LE 

39 ‘ 

198 13=LENC119$):LOCATE xs+19,4s:PRINT CHR#(1432; CHRSC(3Z) * 1 
43: curseur 

119 LOCATE xs+13,ys 


124 

139 Ccé=INKEYS:IF c$="" THEN 139 * attente fraPle 
149 c=ASC CS) 

159 ’ 

169 IF c<2127 THEN 198 * code suPPression 


179 IF 1929 THEN 1i9S$=LEFTSC 1195, 19-12):PRIHT CHRSCS ); CHREC 22 3: 
GOTO 166 ELSE 199 
188 ‘ 
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195 IF c=1i3 THEN 259 * code ENTER? 

298 IF c<32 OR c>127 THEH FRINT CHR#C7);::GCOTO 138 

219 1i3$=119$+c$ ‘ ajout caractere 
228 PRINT c$ ‘ affichaSe caract. 
238 GOTO 168 

248 ’ 


259 LOCATE xs+13,Y2:PRINT CHR 32) 
268 RETURH 


INKEY (n° touche) 





-ermet de tester si une touche est enfoncée. 
-orsque l'utilisateur appuie sur la touche spécifiée, la valeur obtenue est égale à 0. 


1 l'utilisateur appuie simultanément sur une touche et SHIFT ou CTRL ou SHIFT et 
CTRL, on obtient : 


touche non enfoncée —1 
touche seule 0 
touche + SHIFT 32 
touche + CTAL 128 


touche + SHIFT + CTRL 160 


+ PRINT "APPUYEZ SUR ‘4°" 

2 / 

39 IF IMKEYCÉ9S)=9 THEN PRINT "Wous aPPuuez eur À" 

39 IF INKEYCS9:=322 THEH FRIHT "Vous a2PPuyez sur R et SHIFT" 
39 IF INKEYC692=128 THEH PRINT "Vous aPPusez eur CTRL et A" 
69 GOTO EG 


NKEY ne tient pas compte du délai de répétition comme INKEYS$. Plusieurs touches 
enfoncées peuvent être testées simultanément. 


_£ programme ci-dessous permet de rechercher le numéro d’une touche. 


D mn mm fonction INKEYC touche ) 

25 PRINT "APPuyez sur une touche" 

269 FÜR i=9 TO F9 

49 c=INKE "152 

99 IF c=9 THEN PRINT "code=";i * touche enfoncee? 
59 NEAT 1: 

ra GOTO 38 


_es numéros de touche sont distincts des codes ASCII des caractères associés. Les 
aractères associés aux touches peuvent être redéfinis par KEYDEF. 


NUMÉROS DES TOUCHES DU CLAVIER : 





6e] [4] 63 51 54 Ro Ea E1 Lol 63 52 RS Ra F9 Cr91 
Cro ] Ed Ed Ki 53] 52 kel LSE7 Ed Ro ea Fa 
Ce ]E1 63 626354 Ea Fa F9 F1 Ed Rd Ca] 






Ed Fa Ce 
ERTIE 
UE 











Le programme “télécran” ci-dessous déplace un point à l'écran en laissant une “trace” 
du passage, permettant ainsi de réaliser des dessins. 


. d telecran 
24 LOCATE 1,2Z2:PRIHT "utiliser les fleches 
39 MODE 1 


09 x=299:,=2904 
d 


F9 IF IHKEYCS2=ÿ THEN x=x-1 

59 IF INKEYC12=9 THEN x=x+1 

94 IF INKEY(B)=G THEH 5=3+1 

196 IF INKEY<22=9 THEN 3=y-1 
114 ? 

125 PLÜOT x;:9, 1 

136 GOTO 74 


Pour obtenir un déplacement dans les directions diagonales, appuyer sur deux flèches 
simultanément. 


Nous avons écrit le programme de télécran ci-dessus d'une autre façon. L'expression 
(INKEY(8)=—0) s'évalue en —1 si le test est vrai et en 0 si le test est faux. En la combi- 
nant à (INKEY(1)=0) nous obtenons le déplacement du curseur sur l'axe horizontal. 


1Q mm ann mu mme menu mn telecran avec fleches 

29 MOCE 1 

39 LOCATE 1,22:PRINT "Utiliser les fleches" 
48 x=264:y=22700 

og ? 

69 x=x+C INKEYS 2209 3-6 IHKEYC 1 = } 
79 4=y-< IHKETÉ 5 2=5 }+C INKE'YC2 3=9 ) 
39 ‘ 

99 PLOT %x:4,1 

19% GOTO 6% 


Le programme “télécran” ci-dessous permet de dessiner et d'effacer dans 8 directions. 
La couleur se choisit avec 1, 2, 3. 


INSTRUCTIONS DE BASE | 37 


Le 0 0 oo telecran £ directions + couleurs 
MOCE 1:IHK G,24:IHK 1,1:PAFER D:PEN 1 

ce=i:cf=ÿ ? ecriture/fond 

SPEEC KEY 19,2 * vitesse clavier 


LOCATE 1,29:PRINT "fleches Pour def lacer" 

LOCATE 1,21:PRIHT "Lilever B:haisser E:effacer Couleurs: 1:2,3" 
x=2909 :y=296 

À ir aie eme te rare en mme curseur clignotant 

59 L=TEST( x, 9) 

106 ’ 

115 CH=INKEYS:IF cé<>"" THEN 159 

129 PLOT %x,4,ce:PLOT x,4,cf 

139 GOTO 119 


156 IF 1=9 THEH PLOT x,y;ce ; | 
POS Te 


SOS 868 S 


169 IF 1=1 THEH PLOT xyit 
179 IF 1=2 THEN PLOT xy,cf 


1299 IF IHKEYCS3=9 THEN IF x22 THEN #=x-2 
289 IF IHÉEYC13=9 THEN IF x<609 THEN X=x+2 
219 IF INKEYCS5=9 THEN IF 5<397 THEN Y=1+2 
229 IF INKEY(22=9 THEN IF y>2 THEH Y=7-2 


249 CcR=UPPERS c$ ) 


258 IF c$="L" THEN 1=1 " lever 
259 IF c$="8" THEN 1=5 " baisser 
= IF c$="E" THEN 1=2 ° effacer 


229 IF VALCCHI<>D THEN ce=VAL(c$) 
:33 GOTO 99 


5PEED KEY délai, intervalle répétition 





egle le délai de répétition des touches et la vitesse de répétition en 1/50° de seconde. 
SPEED KEY 10,20 


à la mise sous tension, SPEED KEY est égal à 10,3. 


ON BREAK GOSUB n° ligne 





éfinit l'adresse d'un sous-programme vers lequel il y aura branchement si l'opérateur 
z2pule sur “ESC” deux fois. 


19 mm ON BREAK GOSUB 

29 OH BREAK GOSUE 199% 

39 PRINT "APPuyer sur ESCAFE 2 fois" 

48 GOTO 35 

DT un me &P 3m ON BREAK 

199 INPUT "On arrete vraiment (O/Hi Mir 
195 IF r$="0" THEN END 

125 RETURN 


1 ALL LI "et L'ILE LEUR ht 


ON BREAK STOP 


Annule l'effet de “ON BREAK GOSUB”. 


19 mm OH ERERK STOF 

26 OH BREAK GOSUB 154 

39 PRINT "APPuyer sur ESCAFE 2 fois" 

+9 GOTO 35 

99 sPam ON BRERK 

198 INPUT "Annulation OH BREAK <D/H3 ir$ 
125 IF r$="{[" THEN ON BREAK STOF 

128 RETURH 


KEY numéro, CHRS$(n) + chaîne + CHR$(n) 


Associe une chaîne de caractères à une touche dite de fonction. Lorsque vous appuyez 
sur la touche de fonction, la chaîne associée à la touche est affichée, facilitant ainsi 
l'écriture des programmes. 

Si la chaîne est suivie de CHRS$(13), la commande codée dans la chaîne est exécutée. 
Par exemple, si vous écrivez : 


KEY 128,"list"+CHRS (13) 


il suffit d'appuyer sur le O0 du “pavé” numérique pour obtenir la liste du programme. 


La chaîne définie dans KEY ne doit pas dépasser 32 caractères et le total des chaînes 
pour l'ensemble des touches de fonction ne doit pas être supérieur à 100. 


Les numéros des 12 touches du “pavé” numérique vont de 128 à 140. 


0 : 128 1: 135 
1: 129 8: 136 
2 : 130 9: 137 
Ge 134 RE 
4: 132 ENTER : 139 
5: 133 CTRL/ENTER : 140 
6: 134 


Exemples divers : 


D mn mu me mue mm touche dé fonction 

eh KEY 135, '"CLS" ", du clavier numeridue 
CR mm 

44 KEY 137, '"cls"4CHRS 13) * 9 du clavier numerique 
5 ‘—— 


69 KEY 125, CHk$6133+"cls:ink 1,@'ink 1:24"+CHR$ 139 *‘ 9 numeriques 
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KEF DEF n° touche, répétition, code normal, code SHIFT, code CTRL ___ 
Redéfinit les codes ASCII d'une touche. 


_ exemple ci-dessous redéfinit la touche M (n° 38). En appuyant sur “M”, c'est la lettre 
“À” qui est affichée. En appuyant sur “M et “SHIFT”, c'est la lettre “B” qui est affichée. 


19 ‘=. rédefinition touche M | 
29 KEY DEF 35:1:65.66,67 * Aénormal,Bishift).CCcontrol) Pour 
touche M 


“répétition” égal à 1 spécifie que la touche est à répétition. 
Pour connaître le numéro de touche, cf. “INKEY”. 
JOY (0 ou 1) TE 


Deux joysticks peuvent être connectés sur AMSTRAD. 


Joystick(n) donne la direction du manche de joystick. Les valeurs décimales obtenues 
sont : 


| Valeur 

Direction décimale Bit 
HAUT 1 0 
BAS 2 1 
GAUCHE 4 2 
DROITE 8 3 
FEU 16 4 
FEU2 32 5 

15 PRINT JO0Y<9) 

24 GOTD 19 

Pur 

1 

1 

8 

8 


_£S joySticks peuvent également être lus comme les touches du clavier par INKEYS ou 
NKEY (n° touche). La figure ci-dessous donne les numéros de touche correspondant 
zux joysticks. 


touche n° 72 48 
Î 
n° 74 — — 15 50 — à 51 
| | 
13 49 
FEUT: 76 FEU: 52 


FEU2: 77 FEU2: 53 


AU | DARUOAIN, FIV) 1 KAIL/ 


EE 


KR d'amis ess telecran avec joystick 
15 MODE 1 


JD x=20ÿ:y=2099 

59 * 

F9 IF INKEY(r4 
J 


2=9 THEN x=x-1 
89 IF INHKEYS752=9 THEN x=x+i 
90 IF IHKEYC/22=8 THEN y=y+1 


158 IF INKEYC733=ÿ9 THEN y=y-1 
116 ‘ 
129 PLOT %x,:%w,1 
136 GOTO 78 
Sans joystick, on pourra utiliser les flèches du clavier. 


Les numéros de touches sont : 


Ù 
8] [se] -f] 


| 


[2] 


La touche “COPY” peut être utilisée comme touche de mise à feu. 
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LES TESTS 


& IF... THEN...ELSE 
SI... ALORS...SINON 





IF... THEN...ELSE 
WF expression logique THEN suite d'instructions  ELSE suite d'instructions 
_ _ É . “ a Ce RS. a CR 
vraie ou fausse Si expression logique vraie si expression logique fausse 


Cette instruction teste si une expression logique est vraie ou fausse. Si celle-ci est 
‘aie, alors toutes les instructions comprises entre THEN et ELSE, sont exécutées. 
Sinon, ce sont toutes les instructions après le ELSE qui sont exécutées. 


Vrai Faux 
instructions instructions 
après THEN après ELSE 


as mal 


18 INPUT "Nombre A:Nombre B ";2,b 
38 IF 42b THEN PRINT "AB" ELSE PRINT "A<=5" 
4@ GOTO 18 


ru 
Hombre A,;Nombre B 7 3,5 
A<=B 


Nombre A,Nombre B 7 6; 2 
A>B 


=n fait, le test peut se faire, non seulement sur une expression logique, mais aussi sur 
Jne expression arithmétique qui est interprétée comme fausse si elle a une valeur nulle 
JU comme vraie pour toute autre valeur. Mais on évitera d'utiliser cette particularité du 
BASIC. 


5 i=4 
19 IF i THEN PRINT "I est different de D" 


5 i=i29 
19 IF (i218)24Ci<289) THEN PRINT "I est compris entre 19 et 25" 


Les 1F...THEN...ELSE... peuvent être emboîtés, mais il faut alors bien s'assurer qu'à 
chaque IF-THEN il correspond un ELSE. 


19 INPUT "Hombre A;Mombre B";23,h 


20 IF ä<=b THEN IF a<b THEN PRINT "A<B" ELSE PRINT "A=B" ELSE PRINT 
"ADB" 
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LA BOUCLE AUTOMATIQUE 


# FOR/NEXT 
# WHILE/WEND 


FOR variable-compteur = valeur début TO valeur fin STEP pas 
instruction 1 
instruction 2 

NEXT variable compteur 


Fermet d'écrire des boucles de façon plus concise. 


-orsque l'instruction FOR est exécutée, le BASIC affecte à la variable-compteur la 
valeur début spécifiée et mémorise la valeur fin indiquée après TO. 


Toutes les instructions entre FOR et NEXT sont d'abord exécutées avec variable- 
compteur = valeur début. L'exécution de NEXT augmente la valeur de la variable- 
compteur du pas spécifié dans STEP (1 par défaut). 


S: la valeur de variable-compteur est inférieure ou égale (pour un STEP positif) à valeur 
fin, l'exécution se poursuit à l'instruction après FOR. Par conséquent, les instructions 
entre FOR et NEXT sont à nouveau exécutées avec la nouvelle valeur de la variable- 
compteur. 


3! la valeur de la variable-compteur dépasse valeur fin (pour un pas positif), l'exécution 
&æ la boucle s'achève et le programme se poursuit après NEXT. 


FOR Compteur <— valeur début 
stockage de “valeur fin” 


Compteur 
, OUI 







valeur fin 


instructions entre 
FOR et NEXT 


NEXT | Compteur Compteur + 1 FIN 


4 la fin de la boucle, la variable-compteur a une valeur égale à valeur fin + 1. 


Exemples : 


3 FOR cai TO 4 ‘Pour cali jusqu'a 4 

4 PRINT C:cXkc 

39 MEXT © ‘augmenter € Puis aller apres for si c<é 
48 PRINT "fin';c 


1 Î 

2 4 

3 3 

4 15 
fin 3 

nee cxkemPple avec step negatif------ 

26 FÜR c=4 TO 1 STEP -1 

38  PRIHT C,cKc 


49 HEAT € 
98 PRINT c;i"fin" 


© = Fi QE 


Calculées au moment de l'exécution de l'instruction FOR, donc une seule fois “valeur 
début”, “valeur fin” et “pas” ne varient pas en cours d'exécution de la boucle si les 
valeurs des variables qui ont servi à les calculer évoluent pendant l'exécution. En 
revanche, la valeur de la variable compteur peut être modifiée. 


Ne peut être 


g = modifié pendant 
20 cote l'exécution 


39 FOR i=1i TO x 

+9 IF 1=5 AND f=i THEN x=8 
59 PRIHT ji; 

69 MNEAT i 


F ‘6 9 6 9 6 1 5 9 19 
19 FOR isi TO 5 
€9 PRINT ji; 


39 INPUT "nombre ";4(i5 
4H IF 3112<9 THEN PRINT "erreur" : ji=i-1 


Ji MEXT :i 
On revient en 
arrière 





1 nombre 7 4 
2 nombre 7 2 








2 nombr 


& T 3 
S nombre 7 5 
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BOUCLES EMBOÎTÉES 


Plusieurs boucles FOR... NEXT peuvent être “emboîtées”, c'est-à-dire qu'une boucle 
peut être placée à l'intérieur d'une autre. Mais il est interdit de les faire se chevaucher. 


Exemple : 
19 FÜR i=i TO 5 


29 PRINT'i= ";is"j= "; 

38 FOR j=1i TO 3 

48 PRINT .J; 

359  NEAT J 

68 PRINT 

78 HEAT 1 

im L''ée À °c 5 6 7: 9 
iz Z je 1 2 3 4 5 6 7 $S 
i=3j21 2 3 4 S 6 7 8 


S il n'y a pas d'instruction entre NEXT J et NEXT |, NEXT J,I donne le même résultat. 
NEXT (au lieu de NEXT J) est accepté, puisqu'en fait NEXT incrémente le compteur 
du FOR le plus récent et que celui-ci est supprimé dès qu'il atteint la valeur limite. Mais 
pour des raisons de lisibilité, on indiquera le nom de la variable. 


SORTIE D’UNE BOUCLE FOR 


On peut sortir d'une boucle FOR par “GOTO” sans problème. (Les versions Microsoft 
antérieures posaient un problème dans le cas où un indice non “épuisé” était utilisé 
dans une autre boucle FOR “interne”). 


26 FRE 128 THE GOTO 55 ‘sortie Par Soto 

24 MEXT ji 

4g ‘ 

SG FÜR j=1 TD 3 

69 FOR i=i TO 4 "i utilise 2 nouveau 
‘4 PRINT "iz "ji; 

59 NEAT :i 

63 PRINT 

34 HEAT j 


149 PRINT FRESH) 
113 GOT 19 


bis pitt: 
WE UHH 
Cu 


RE 


LE 
QÙ vue pps. 
WU Hy 


Pi Fo Fy Fi Polo 
. . . bot » ti. 
l 
Ci Gi Gal 
+ 


bn: bre 4- 
Il 


HU & H 
Ci 
JL 
bte A1 pue pts pa- 
HE 1] 
Fr 
+ £ EE £ E LE 


Il 
Fa 
[PA 

il 
CG) 
+4 

| 


pa 


WHILE condition 
instructions 
WEND 





Exécute les instructions entre WHILE et WEND tant que “condition” est vraie. 


Ci-dessous, le message “Appuyez sur une touche” est envoyé tant que l'opérateur 
n'appuie pas sur une touche. 


19 WHILE INKEY$="" * tant Que INKEYS$ est vide 
294 PRINT "AFPuyez sur une touche" 

38 WEND 

run 


APPUYeZ sur une touche 
APPuyeZz sur une touche 
APPUYez sur une touche 
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LES DONNÉES 


x DATA 
a READ 
# RESTORE 


DATA 





instruction DATA permet de définir des données dans le programme lui-même. Celles- 
oi sont ensuite lues dans des variables par l'instruction “READ variable” (LIRE varia- 


ble). 
|Pointeur de DATA 
iä DATA 13,16,13,14 
€ Ti 
en te Pointeur de DATA 
59 REND Me après 2 READ exécutés 
+0 KEAD N3 
SD READ Nd 
59 * 
76 PRINT H1,H2.H3,H4 
59 PRINT "MOYENNE :";CN1+HZ+N3+Nd4 3/4 
19 15 15 14 
MOYENNE : 13.25 
READ 


"READ N1” lit la première donnée (10) dans N1. 
Le pointeur de DATA (géré par BASIC) progresse de 1. Ainsi “READ N2” lit la deuxième 
donnée dans N2, etc... 


Les données peuvent être écrites sur plusieurs lignes : 


Ten 
Cut 
QC 


HR IRIS 


Les lignes 10 et 20 sont équivalentes à la ligne : 


- 
LA 


f: 


15 CATA 19,16,13,14 


L'implantation des DATAs dans un programme n'a pas d'importance. Elles sont lues 
dans l'ordre de la numérotation. 


Les chaînes de caractères comportant des caractères Spéciaux doivent être placées 
entre guillemets. 


Sur l'exemple ci-dessous, sans la présence de guillemets, la virgule serait considérée 
comme séparateur. 


18 DATA "aire de Provence" 


39 READ x$ 
40 PRINT x$ 


S,rue de Provence 


RE 


Positionne en début de DATA ce qui permet de relire les données depuis le début. 


13 DATA 6,3, 14 

39 READ A,B,0 PREMIERE LECTURE 
59 RESTORE *DEBUT DATA 

7 RERD D,E,F "DEUXIEME LECTURE 
sa PRINT A,B,C 

19G PRINT D,E,F 


14 
14 


Mi M 
&) 


OR À 


Positionne sur le numéro de ligne de DATA spécifié vous permettant ainsi de sélec- 
tionner des données particulières. 


15 DATA 6,3, 14 

26 DATA 4,2,58 

39 RESTURE 29 "LIGNE 29 
4 FEAD %,%,2Z 

09 PRINT XX: 


+ 2 4 
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ERREURS 


= DATA EXHAUSTED : 


Si le nombre de READ exécutés est supérieur au nombre de données en DATA, le 
nessage “DATA EXHAUSTED” apparaît. 


15 DATA 15,16 
1 
2H READ 4 


39 KEAD 
4 KEAD Z 


CATA exhausted in 49 


= SYNTAX ERROR : 


-e type de la donnée lue doit s’accorder avec le type de la variable. 


12 DATA NICOLAS 
29 RERD X 
Numérique. 


Syntax error in 18 


- £xemple ci-dessous lit un nom au hasard dans une liste de quatre noms. 


18 DATA NICOLAS, SOPHIE, JACQUES , BRUNO 
39 RESTORE 

43 H=IHTE RNDK4 ) 

55 * | 

68 FOR I#1 TO X:RERD XS:NEXT ! 
g * 

82 REAC HOMS 

199 PRINT HOMS 

119 GOTO 39 


MICOLAS 
BRUN 
JACGUES 


Ci-dessous, nous sélectionnons un groupe de DATA. Chaque groupe peut comporter 
plusieurs lignes. La fin de chaque groupe est repérée par le caractère “*”! 


15 RATE MAISON, PORTE, CHAMBRE 


39 DATA JEAN, PIERRE, PAUL, JACQUES 

49 CATA # 

59 DATA ROUE, CADRE, FREIH, PEDALE, SELLE 
69 DATA # 

F9 ? 

59 RESTORE 

Le INFUT "QUEL GROUPE (1,2,353";G 

9 Lu 

169 IF Gel THEH 269 

195 * 

119 REAC #$:IF KX$="X4" THEN G=G-1: GOTO 199 
129 GOTO 119 

139 ‘ 

298 READ MOTS 

219 PRINT MOTS 

229 GOTO 89 


QUEL GROUFE (1,2,3) 7 2 


JEAN 

QUEL GROUPE (1,2,32 7 1 
MAL SON 

QUEL GROUPE (1,2,:39 Ÿ 3 
ROUE 
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LES TABLES 


-8s tables contiennent des éléments de même nature auxquels nous accédons par un 
naice. Nous pouvons ainsi traiter les éléments d'une table en faisant simplement varier 
un indice. 


Une table comportant plus de 10 éléments doit être dimensionnée par : 
DIM nom-table (nombre éléments) 
Soit une table des dépenses relatives aux douze mois de l'année. Les éléments de 


œætie table que nous appelons DEPENSE{) sont connus sous les noms de DE- 
PENSE(1), DEPENSE(2)...., DEPENSE(12). 


TABLE DEPENSE() 

1 <—DEPENSE(1) 

2 <—-DEPENSE(2) 
M=3 —- 3 <—DEPENSE(3) 

à 

9 

6 

/ 

8 

9 

10 

11 

12 





Pour documenter la table, nous faisons varier un indice M de 1 à 12. 


19 DIM dePpense( 12) 
268 ‘ 


38 FOR m=1 TO 12 

46 PRINT "Mois ";m; 
O9 INPUT dePenseim) 
69 MEXT mm 


run 

Mois 1 7 1298 
Mois 2 7 1198 
Mois 3 7 1399 


Mois 12 7 1595 


Au départ, l'indice M étant égal à 1, l'instruction INPUT DEPENSE{(M) est équivalente 
à INPUT DEPENSE(1). Par conséquent, c'est dans l'élément DEPENSE(1) que la 
première valeur est introduite. Au second passage dans la boucle, M étant égal à 2, 
c'est dans DEPENSE(2) que la seconde valeur est introduite. Etc. 


Pour connaître le total des dépenses entre deux mois M1 et M2, nous écrivons : 


2e DIM dePense( 12) 

36 FOR m=1i TO 12 

49 PRINT "Mois ";m; 

39 INPUT dePensecm) 

69 MEXT m 

D Vois assises 

96 PRINT 

199 INPUT "Mois 1";mi 

119 INPUT "Mois 2";5me 

129 ’ 

149 ttal=9 

159 FOR mzmi TO m2 

189 ttal=ttal+dePense(m) 
179 MEXT m 

189 PRINT 

159 PRINT "Total:'"';imi;mz;ttal 
266 GOTO SG 


run 
saisie table 


Mois 17 1 
Mois 27 12 


Total: 1 12 14629 


Mois 17 1 
Mois 27 6 


Total: 1 6 7260 


Il existe pour les tables un élément 0 : 


100 A (0) =15 


TABLES A PLUSIEURS DIMENSIONS 





Plus généralement, les tables peuvent avoir plusieurs dimensions déclarées par : 
DIM nom-table (dim, dim2, .…) 


Soit une table à deux dimensions contenant des stocks de voitures de différents types 
et de différentes usines. 
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STCK(1,1)  STCK(1,2) USN 


mt DT 
DIM STCK(4.5) 
Réserve une Type —- Æ———— \oit 2 






table de 4 lignes 
et de 5 colonnes 


Usine 1 Usine 2 Usine 5 


Jecumentons la table à l’aide de l'instruction INPUT : 


19 DIM stckéd,5) 

29 ‘ 

38 FOR tyFezl TO 4 

45 FOR usn=zi TO 5 

99 PRINT "Stock/TyPe:'";ityPpe; "Usine:";usn; 
66 INPUT stck(tyPe; usn) 

F9 HEXT usn 

69 NEXT type 


Stock/TyPpe: 1 Usine: 1 7 19 
Stock/TyPpe: 1 Usine: 275 

Stock/Type: 1 Usine: 3 7 3 

Stock/TyPe: 1 Usine: 4 7 7 

Stock-/TsPe: 1 Usine: 5 7 9 

Stock/TyuPe: 2 Usine: 1 78 

Stock/TusPe: 2 Usine: 2 7 


-7sque la table est documentée, pour connaître le nombre de véhicules d'un type, 
#tes usines confondues, on fait : 


198 INPUT "Type ";tupe 

119 ? 

129 ttal=8 

130 FOR usnzi TO 5 

149 Étal=ttal+stcké type, usn) 

159 NEXT uzn 

168 

178 PRINT "Total tyPe:";tyuPpe;ttal 


run 





saisie table 
Type 7 2 


Total tyPe: 2 41 


Comme pour les tables à une dimension, la déclaration d'une table à plusieurs dimen- 
sions, toutes inférieures ou égales à 10, n'est pas nécessaire. 


Alors qu'une table et une variable peuvent avoir un même nom, plusieurs tables, même 
si elles ont des nombres de dimensions différents, ne peuvent avoir le même nom. 


Exemple : 
DIM a(7):DIM a(7,:8) 


ERASE nom-table 





Efface une table en mémoire centrale. La place est récupérée par BASIC et la table 
peut à nouveau être dimensionnée. 


16 DIM a<2606. 


c9 PRINT FRE‘G) * Flace libre 
55 ERASE 3 * effacement table ac) 
49 PRINT FRE ? Place libre 
run 
42377 
43391 


Lorsqu'une table n'est pas dimensionnée par DIM, elle est dimensionnée par défaut 
avec 10 éléments par BASIC dès qu'un élément de la table est référencé en lecture ou 
en écriture. 


Si une instruction DIM est exécutée après le dimensionnement par défaut, le message 
ARRAY ALREADY DIMENSIONNED est envoyé par BASIC. 


18 a3(42=15 * dimensionnement imPlicit 
29 DIM 3629) | . 


Il faut dimensionner la table avant de référencer un élément. Lorsqu'une table n'est 
pas dimensionnée explicitement par DIM et que l’on essaie de référencer l'élément 11. 
on obtient le message SUBSCRIPT OUT OF RANGE. 


169 FOR i=1i TO 15 
26 PRIHT ai); 
30 MEXT i 


Il faut ajouter : 


J DIM A(15S) 
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OCCUPATION MÉMOIRE 
7er défaut, les tables numériques occupent 5 octets pour chaque élément. 


-8S tables déclarées entières (%) occupent 2 octets par élément. 


19 PRINT FRE(G) 
26 DIM 23288) 
38 PRINT FRE(G) 


run 
43494 
42439 


19 PRINT FRE(G) 
28 DIM a%<189) 
39 PRINT FRE(9) 


run 
43494 
43283 


LES CHAÎNES DE CARACTÈRES 


# LEFTS m LEN m ASC EH STRINGS = BINS 
8 RIGHTS 5 STR$ = CHRS mn SPACES mn UPPERS 
8 MID$ NH VAL & INSTR & HEXS$ m LOWERS 


L'affectation d’une valeur à une chaîne s'écrit : 


nom de chaîne = « suite de caractères » 
Exemple : 10 NOMS$ = « DUPONT » 


Les « » indiquent que DUPONT doit être interprété comme une chaîne de caractères 
et non comme une variable. La longueur d'une chaîne de caractères, qui n'a pas à être 
déclarée, peut varier en cours d'exécution du programme (jusqu'à 255). De même. la 
longueur de chaque élément d'une table de chaînes peut varier dynamiquement. 


La concaténation (réunion) de chaînes de caractères est réalisée par l'opérateur noté 
« + ». 


19 nom$="CUPONT" 
29 Pren$=" jean" 
39 nP$=nom$+PrenS 
49 PRINT "F$ 


run 
DUPONT jean 


COMPARAISONS 
La comparaison de chaînes de caractères se fait avec les opérateurs : 
—. <,, » ® P=, <=, <> 


Les chaînes sont comparées caractère par caractère de la gauche vers la droite jusqu'à 
ce que l'un des caractères d'une chaîne soit plus grand que l'autre (code ASCII supé- 
rieur). C'est alors cette chaîne qui est considérée comme la plus grande (“DURAND” 
est plus grand que “DUPONT"). 

Si tous les caractères sont égaux, les chaînes sont considérées comme égales. 


19 INPUT ‘"ier nom ";:nis$ 

29 INPUT "2eme nom “;5n2$ 

38 IF n1$5>n25 THEN PRINT n1$%;" est Plus Srand ue “;n2% 
49 IF ni$<n2$ THEN PRINT ni$;" est Plus Petit Que "iyn?s$ 
59 GOTO ig 


run 
ler nom 7 DURAHD 
2eme nom 7 DUPOHD 
DURAND est Plus Sranc 9ue DUPONDC 
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e programme ci-dessous teste une réponse au clavier, 


19 INPUT "RePonse (oui où non) “ir$ 

2ÿ IF ré$és'oui" THEN FRINT "Vous avez dit oui" 

2G IF r$="non" THEN PRIMHT "Vous avez dit non" 

4G IF r$="" THEN PRINT "Vous avez aFPuye sur ENTER" 
59 GOTO 16 


Remarquez le test d'une chaîne vide en 40(IF R$=" "). 





LEFTS$,RIGHT$,MIDS 


LEFTS$, RIGHTS, MID$ permettent d'accéder respectivement aux caractères de gauche, 
de droite et de l’intérieur d'une chaïne. 


LEFT$ (CHAINE, longueur à prendre à gauche) 
RIGHTS (CHAINE, longueur à prendre à droite) 
MID$ (CHAINE, position début, longueur à prendre) 


“CHAINE”, “longueur à prendre” et “position début” peuvent être des expressions. 
Les valeurs de “longueur à prendre” et de “position début” doivent être comprises 
entre 0 et 255. 


Exemple : 
NOMS = MIDS (XS, 3, 4) 
| 


SX$ = LEFTS (XS, 2) MR. BALU | JEAN PRENS = RIGHTS (XS, 4) 


19 x$="MREALUJEAN" 


29 sxS=LEFTS x$, 2) ? 2 caracteres 3 9auche 
39 Pren$b=RIGHTSé 45, à 2 * à caracteres a droite 
48 nom$S=MIDé&(x:8, 3,4) 7 + caracteres 4 Partir du 3eme 


59 PRINT =2x$%,Pren$, nommé 


FU" 
HR JEAH BALU 


Dans l'exemple ci-dessous, nous testons la première lettre de la réponse : 


19 INPUT "RePonse COUI/NON)D "ir 
29 IF LEFT#(r$,i2="0" THEN GOTO 199 


OS CS CP CO CO. 


Autre exemple : 


19 nom$="DUBONET" 

26 FOR i=i TO 7 

39 PRINT LEFTS nom$, i ) 
4Q MEXT ji 


run 

D 

CU 

DUB 
DUBO 
DUBON 
DUBOMNE 
DUBONET 


Si “longueur à prendre” spécifiée est plus grande que la longueur de la chaîne. le 
résultat est la chaîne elle-même. 


Lorsque “longueur à prendre” n'est pas précisée dans MID$, cette fonction devient 
équivalente à RIGHT$. 


Si “position début” spécifiée dans MIDS est plus grande que la chaîne elle-même, 
une chaîne vide est retournée. 


MID$(CHAINE1, position début, longueur à remplacer) = CHAINE2 
Permet, à partir de “position début” dans “CHAINE1” et sur la longueur spécifiée, 
de remplacer des caractères par ceux de “CHAINE2”. 


19 x$="MREALUJERH" 

29 MID& X$, 3, 4 =" 
59 PRINT x$ 

48 PRINT nF$ 


MU 
MR AZR JEAN 


Attention : ne permet pas l'insertion ou la Suppression de caractères mais seulement 
la substitution. 


Si "CHAINE2” est plus longue que “longueur à remplacer”, seuls les premiers ca- 
ractères de “CHAINE2” sont pris en considération. 


Si "CHAINEZ2” est plus courte que ‘longueur à remplacer”, il n’y a substitution des 
caractères que sur une longueur égale à celle de “CHAINE2”. 


LEN (chaîne) a — mm à 


Donne la longueur d'une expression chaîne. 
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19 nom$="DUPONT" 
28 L=LEN( nom$ 
36 PRINT 1 


run 
6 


STRS$(X) 
Zonvertit une expression numérique X en une chaîne de caractères. 


19 x=123 
28 XS=STRE( x ) 
30 PRINT x$, LENC x$ à 


run 
123 4 


Remarque : Le premier caractère de la chaîne est réservé pour le signe “:” C'est un 
espace pour un nombre positif et un signe “—” pour un nombre négatif. 


PRINT MIDSCSTR# 1233,2,1) --3 1 


\ AL (chaîne) 
-onction inverse de STRS, elle donne la valeur numérique d'une expression chaîne. 


18 x$="123 francs" 
28 x=YALCxS ) 
38 PRINT x 


run 
123 


Si le premier caractère n'est pas un caractère décimal, un espace, un signe “+”, un 
signe “—” ou “.”, le résultat est égal à zéro. 


19 PRINT YALC" 123") 
29 PRINT YALC"+123") 
38 PRINT VALC"A123" 3 


run 
123 
123 
g 


ASC (caractère) 


Zhaque caractère a un code interne (code ASCII) auquel on accède par la fonction 
ASC (caractère). 


19 xS&="fA" 
29 X=ASCCxS ) 
39 PRINT x 


run 
65 


ASC (chaîne) ——————_—————————————————— 
Donne le code ASCII du premier caractère d'une expression chaîne. 
18 Print asc('"'BONJOUR") ——» 66 
Une chaîne nulle comme argument provoque une erreur. 
16 x$="":PRINT ASCCxS) 


ImProPer arSument in 18 


mm 


Fonction inverse de la fonction ASC. elle permet de générer des caractères ayant pour 
code ASCII la valeur de X. Cette valeur doit être comprise entre 0 et 255. X peut être 
une constante, une variable ou une expression. 


18 FOR i=6S TO 65+25 
29 PRINT CHRS i); 
30 MEXT ji 


PU" 
ABCDEF GHI JKLMNOPGRSTUYUXYZ 


CHR$(X) est utilisé pour envoyer des “caractères de contrôle” aux périphériques (écran, 
imprimante). 


CHR$(8) provoque un retour arrière du curseur. 
CHR$(10) provoque un passage à la ligne (sans retour en début de ligne). 
CHR$(13) provoque un retour en début de ligne. 


Exemples divers : 


# Suppression d’un caractère à droite d’une chaîne : 


19 x$="DUPONT" 
29 XB=LEFTSCxS, LEMC 3x8 2-1) 
38 PRINT x$ 


run 
CD'UPON 
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= Normalisation d'une chaîne à une longueur fixe : 


19 x$="DUPONT" 
20 Y$S=RICHTS&C " F+X5:9) 
39 PRINT y5$%,LENCy%) 


run 
DUPONT 8 


# insertion d’un caractère dans une chaîne : 


19 z8="HAAARA" 

28 x3="B":Pp=3 

39 ZS=LEFTÉC 26, P J+XS+RIGHTSEC Z$, LENC z$ }-p ) 
49 PRINT z# 


run 
RARBAR 


= Remplissage par des zéros à gauche : 


19 x=123 
28 xXS=RICHTÉECSTRSEC 109288+% },5 ) 
38 PRINT x$ 


"run 
96123 


INSTR (position départ, chaîne, chaîne cherchée) 





Recherche la position d'une chaîne dans une autre. Par défaut, la position de départ 
est égale à 1 : 


Si la chaîne cherchée n'est pas trouvée, le résultat est égal à O. 

Si la chaîne cherchée est nulle, le résultat est la position de départ spécifiée. 

- Si la position de départ est supérieure à la longueur de la chaîne où s'effectue la 
recherche, le résultat est nul. 


18 x$="DUPONT, JEAN" 
28 P=INSTRCXS, ".") 

36 yYS=LEFTS xS,P-1) 
49 PRINT y$,P 


run 
DUPONT f 


19 PRINT INSTR(S3, "ABRAABARA","B") -—-» 5 


Le programme ci-dessous vérifie si un nom appartient à un ensemble. 


19 e$="JERH PIERRE PAUL JACQUES" 
29 INPUT "Hom ";nom$ 
3B P=INSTRCeS, nom$):1F P=Q THEN PRINT "Erreur ":COTO 28 


Cette séquence d'instructions permet de répondre à une question “Mode ?” non pas 
par un Chiffre, mais par une lettre (plus mnémonique). 


19 INPUT "Mode CC: A;,P,R:H> "sm * entrer CofoPo,. 

ES 

26 P=INSTEC" CAPRIH", m$) © Position caractere fraPpe” 
38 IF P<2 THEN 1G * validiter 

44 ON P-1 GOTD 194,700, 490,S00,608 

J6 ’ 


199 PRINT "li9ne 19@":STOP 
289 FRINT "ligne 299":5T0P 
499 PRINT "liQne 499":STOP 


Remarque : Si M$ est une chaîne vide, P est égal à 1. C'est ce qui explique la pré- 
sence d'un espace dans l'instruction 20 devant “CAPRMN" 


La séquence d'instructions ci-dessous vérifie si un caractère frappé appartient bien à 
un ensemble de caractères autorisés : (chiffres plus le “.” sur l'exemple). 


15 CHS=IHKEYS:IF c$="" THEN 19 ” attente caractere 

29 P=INSTARC "9123456789," ,c$) ‘ Position caractere frappe? 
39 IF ASC(c$)=13 THEN 98 * ENTER? 

49 IF P=9 THEN PRINT CHR$&7 2; :GOTO 1@ ’ Caractere invalide? 
99 li9#=1195+c$ 

69 PRINT c$; 

r9 GOTO ig 


35 PRINT:PRINT 119$ 


STRINGS$ (nombre de fois, chaîne) Re E 


Génère une chaîne de caractères égale à la chaîne spécifiée, multipliée par le nombre 
de fois indiqué. 


19 XS=5TRIHES 19,",") * chaine de 19 *,’ 
24 PRINT x% 


run 


SPACES(X) À 


Génère une chaîne de X espaces. X peut être une expression. 


13 xX$= "DUPONT "+SPACESCS >+" JEAH" 
26 PRINT x$ 


PUn 
DUPONT JEAN 
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Notons que la fonction SPC ne génère pas une chaîne d'espaces et n'est utilisable 
au avec l'instruction PRINT. 


HEX$(expression) 


Fournit une chaîne représentant la valeur hexadécimale de la valeur donnée. La valeur 
donnée doit être entière (—-32768 à +65535). 


10 XS=HEXS (14): YS=HEX$(14,2) 
20 PRINT X$,Y$ 


RUN 
E ÔE 


BIN$(expression) 





rournit une chaîne représentant la valeur binaire de la valeur donnée. 


10 XS=BINS (12): YS=BINS(12,8) 
20 PRINT X$,V# 

RUN 

ii00 00001100 


UPPERS(chaîne) 
Convertit une chaîne en majuscules. 


19 nom$="roulet" 
29 PRIMT UPFPERSC nommé 


mur 
ROULET 


LOWERS(chaîne) 
Convertit une chaîne en minuscules. 


19 nom$="FOULET" 
29 PRINT LOWERSE nom$ 2 


Fur 
roulet 


Remarques sur les chaînes : 


_orsqu'une chaîne voit sa longueur changée, elle est déplacée. 


_a place occupée par l'ancienne chaîne reste perdue jusqu'à ce que l'espace mémoiré 
sort réorganise par BASIC. Pour éviter ces réorganisations (longues), on pourra utiliser 
MIDS(x$,p,1)="XX" qui modifie la chaîne sans la déplacer. 


Le programme ci-dessous rempiit une table de chaînes. 
PRINT FRE(“ ”) provoque le tassement des chaînes par BASIC. 
19 DIM 232$ 598) 

No=TIME 


36 FÜR i=1 TO 598 
49 25€ i =" BASIC"+STREC i ) 
MEXT ji 


69 PRINT "TemPs:";CTIME-hd)/292 

19 hA=TIME 

96 PRINT "EsPace libre:";FRE(A) 

96 PRINT FREL'"'") * reorganisation chaines 
196 PRINT "TemPs:";CTIME-hd)/208 

115 PRINT "EsPace libre:";FRE(D) 


run 
TemPs: 5.05666667 

Espace libre: 35441 
317393 

TemPs: 28,2666667 


Espace libre: 37333 
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LES ÉDITIONS 


= PRINT # PRINT SPC & WRITE 
= PRINT, nm PRINT USING # ZONE 
= PRINT; s POS/VPOS 8 WIDTH 
z PRINT TAB 

PRINT expression 





Un simple PRINT d'une constante, variable ou expression, affiche la valeur de celle-ci 
puis provoque un retour en début de ligné et un saut de ligne. 


19 x=123 
29 PRIHT x 


run 
123 


mm 


- impression de plusieurs valeurs sur une même ligne peut se faire simplement en 
séparant dans l'instruction les noms des variables ou les expressions par des virgules. 


19 somme=298 : nombre=19 
29 PRINT somme, nombre, somme/nombre 


run 
298 18 eg 


V'ais dans ce cas, l'impression des valeurs est faite selon un format standard (colonnes 
1,14, 27, etc. les valeurs sont cadrées à gauche). Zone permet de changer le format 
standard. 


PRINT ; 





3n point-virgule en fin d'instruction PRINT empêche le saut de ligne : les chaînes de 
-aractères sont concaténées, les valeurs numériques sont suivies par un espace et 
-récédées soit par Un espace pour les nombres positifs, soit par le Signe “—” pour les 
nombres négatifs. 


19 nom$= "DUPONT" 
29 Pren$g="jean" 
39 PRINT nom$; 
49 PRINT Preng 


run 
CUPONT jean 


19 Frint 123;456;-739 7 125 456 -739 


PRINT TAB(X) 





La fonction TAB(X) permet de positionner directement le curseur à l'intérieur d’uns 
ligne en colonne X, X peut être une expression. 


19 a=123:bh=456 
TA 


29 PRIMT a Et 152 b 
Fi 
123 455 


Attention : Le curseur ne peut revenir en arrière. Si X spécifié est plus petit que k 
position courante du curseur, l'édition se fait sur la ligne suivante. 


PRINT SPC(X) 





Avec la fonction SPC(X), X blancs sont imprimés à partir de la position courante : 


18 nom$="OUPONT":pr$=" JEAH" 
29 PRINT Pr$; SPCCS 5; nom 


un 
JEAH DUPONT 


PRINT USING 


a ES SO. 
Considérons maintenant l'outil d'édition le plus puissant du BASIC : le “PRINT USING 


# VARIABLES NUMÉRIQUES : sans le PRINT USING les valeurs numériques son 
cadrées à gauche. Or, c'est généralement à droite qu'elles doivent être cadrées. 


# PRINT USING « # # # # # » ; expression numérique 


Un format défini par une chaîne de # nous permet de cadrer les nombres à droite 
Chaque # représente la position d'un chiffre. 


19 x=123:u=1234 

29 PRINT USING " ###f "x |] Format | 
39 PRINT USING " ##4# mu Format 
PU 


1234 Cadrage à droite 


Sans le PRINT USING, nous aurions obtenu des chiffres cadrés à gauche. 


1] + 
j Fu 


L 


( 


123 
1234 
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La partie entre guillemets qui représente le format peut aussi être définie par une 
variable chaîne de caractères : 


14 x=123%3:y=1234 

29 Fmt$="####" 

29 FRINT USING fmEt$:x 
43 PRINT USING fmt$: 


FU 


123 
12354 


# PRINT USING « # # # #.# # » : expression numérique : 


_e nombre de chiffres après la virgule qui doivent être imprimés est précisé dans le 
‘ormat par le nombre de # après le “.,” 


18 x=123,456 
29 PRINT USING "#### #4"; 


run 2 chiffres après 
123.46, la virgule 


On remarque que l'arrondi est assuré automatiquement. 


# PRINT USING «LIBELLÉ # # # #.# # », variable numérique 
Un libellé peut être inséré dans le format. 


15 somme=123, 456€ 
29 PRINT USIHG " Total: ###h. ##  FRANCS "somme 


Fun 
Total: 123.465 FRANCS 


Formats multiples : 
*lusieurs formats peuvent être spécifiés dans une seule instruction. 


19 somme=1234,567:tya=17,5 
29 PRINT USING "Total: #H#4#H#4 44 Tva ##.## somme, tua 


FUN 
Total: 1234.57 Tvya 17,69 


Si le format est le même pour plusieurs variables, on fait : 


19 x=123:y=45$6 
24 FRINT USING "HH#hh, 4m 


ru 
123.99 456.095 
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© 


© 


A 
(8 


® © 


Le signe “+” n'est imprimé que s'il est prévu dans le program- 
me. 


19 Print usins " ###h";123 —?} 123 
19 Print usins "+###h#";123 —) +123 
18 Print using "+#h##h";-123 --» -123 


Un signe “—” en fin de format provoque l'impression du signe 
“—” à la fin d'un nombre négatif. 


15 Print using "###h-";-123 2 123- 
1H Print using "####-":123 2 123 


2 “*” placés en tête de format provoquent le remplissage par des 
“+” des positions inoccupées à gauche du nombre imprimé. En 
outre ces 2 “*” spécifient des positions pour 2 chiffres supplé- 
mentaires. 


14 Print using "##h#H###!"; 122 7} KK#123 
19 Print using "#K##H#H"; 12354 ——} KK1734 


2 “$” en tête de format provoquent l'impression du caractère “$” 
à gauche du nombre imprimé. 


19 Print usina "SS###4":123 —--> $123 


mois. ‘dé combine les effets TEE AE et “65”. 
19 Print using "ÆEFEHAH# "123 ——?) FAASIZS 
Si le nombre de positions spécifié dans le format est insuffisant 


pour la valeur à imprimer, le message % est imprimé devant la 
valeur. 


19 Print using “###":;1734 —» 1234 


# CHAÎNES DE CARACTÈRES 


PRINT USING «\ 


\» ; expression chaine : 


Le nombre d'espaces entre les “\” définit le nombre de caractères à imprimer—2. 


19 





«$= "RENAULT" 


PU 
RENAS  @— 


ÆT 
29 PRINT USING MN N";x$ | 3 espaces 
DE 
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PRINT USING « ! » ; expression chaîne : 
imprime le premier caractère d'une expression chaîne. 


PRINT « & » ; expression chaîne : 
Spécifie une longueur vafiable de chaîne. La chaîne imprimée est égale à la chaîne 
spécifiée. 

19 nom$="ROULET":PRENS="NICOLAS" 

29 FRIHT USING "4 1"; nom$,pren$ 


PuN 
ROULET M 


Programme pour tester PRINT USING : 
_e programme suivant permet d'entrer par INPUT à la fois le format et le nombre à 
imprimer. 

19 IHPUT "Format, nombre "ifmté, nombre 

29 PRINT USING fmt$;: nombre 


run 
Format, nombre? #4#4#4#, 123 
123 


POS/VPOS a ————————_—_—_—_—_—_———— EE 


Donnent les coordonnées du curseur. 


183 LOCATE 19,9 
29 PRINT "NICOLAS"; 
34 FRINT POS #42, /POSC HG ) 


PU 
NICOLAS 17 8 
WRITE expression1, expression2 ——————————_ 


Frocède comme PRINT … mais sépare les valeurs par des virgules et imprime les 
chaînes entre guillemets. 


19 32509: b= 144: x$="HICOLAS" 
29 URITE 2:b,x$ 


run 
89, 189, "NICOLAS" 
ZONE intervalle 


Jéfinit l'intervalle d'édition standard lorsque les variables sont séparées par des vir- 
qules. 
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16 ZOME 13 
ca PRINT 1,2,3 
39 ZONE 14 
49 FRINT 1,2,3 


WIDTH largeur 





Définit la largeur d'édition à l'imprimante. 


ÉDITIONS IMPRIMANTE : 
Pour éditer sur imprimante, il faut utiliser le canal #8. 


19 PRINT #53, "CUPFONT 
BLABLA 


ÉDITIONS IMPRIMANTE/ÉCRAN : 
Un même programme peut aiguiller des résultats vers l'écran ou l'imprimante. 


15 INPUT "Ecran ou imPrimante C<E/12 ";im$ 
29 ? 

39 IF m$="E" THEN cn=g 

44 IF m$="l" THEN Cn=S 

59 ‘ 

64 PRINT #cn,'"ELAELA" 

r9 GOTO 1ÿ 
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DÉCOUPAGE 4 
DES PROGRAMMES 





LES SOUS-PROGRAMMES 


#5 GOSUB... RETURN 


GOSUB RETURN 





il est fréquent qu'une même séquence d'instructions soit utilisée plusieurs fois dans 
un programme. Un sous-programme permet d'écrire une seule fois cette séquence 
qu il suffit d'appeler de différents endroits du programme par GOSUB n° d'instruction. 


19 3=38:b=16 
[nent ‘ 


25 s=a3+b 
59 F=a*b 
59 PRINT 2,b,"Somme "is; "Produit: "PJ 


69 * 














Même séquence 
d'instructions 





199 s=3+b 
119 P=a%h 


126 PRINT 4:50, "Somme:":;se)"Froduit:"3p 
130 






20 GOSUB 500 provoque un branchement du programme en 500 (comme le ferait 
GOTO 500) mais l'instruction RETURN (RETOUR )) placée à la fin du sous-programme 


provoque un retour automatique après l'instruction qui suit GOSUB 500, c'est-à-dire 
‘instruction 30 sur l'exemple. 


Pour le deuxième appel du sous-programme en 100, le retour se fait en 110. 


LL. 4 LM Ce CE dl CLOSE Em 





19 a=30:b=19 
20 GOSUB 599 — À 








54 FKRIHT "DEEBUT SOUS-FROGRAMME 
14 S=A+E 





39 ’ 3e F=A#E 

49 = J [530 PRINT AB; "SOMME" ;S; "PRODUIT" EF 
98 3=29:b=5 544 PRIHT "FIH SOUS-PROGRANNME" 

198 GOSUB 598 554 RETUFH 

119 EHDæÆ 

159 ‘ 


599 PRINT "Debut sous-Proîramme 
919 s=a+b 
À 529 P=a#h 
939 PRINT a;:b;"Somme";s;"Produit";p 
549 PRINT "Fin sous-Proîramme" 
JJ9 RETURH 


On remplace par 
un Sous-programme 














Retour automatique 
à l'instruction qui 
suit GOSUB 





run 
Debut sous-ProSranmme 

39 19 Somme 48 Produit 399 
Fin sous-Frogramme 
Debut sous-Programme 

29 5 Somme 25 Produit 199 
Fin sous-Progranmme 


Remarque : Un sous-programme peut lui-même en appeler un autre. 


Les adresses de retour (90 et 540 sur l'exemple) sont gérées par Basic à l'aide d'une 
pile. 


50 500 … 1000 … FT 
60 5101... 1010 = 
80 GOSUB 500 530 GOSUB 1000 1030 … Co | 
90 540 .…. 1040 

100 Le NC 080 1e Pile des 

110 560 RETURN 1060 RETURN 4985565 de 


retour 


Les instructions sont exécutées dans l'ordre suivant : 


50 60 70 80 

500 510 520 530 Début du 1° sous-programme 
1000 1010 … 1050 1060 2° sous-programme 

540 550 560 Fin du 1° sous-programme 

90 100 Retour au programme principal 


N'essayez pas de sortir d'un sous-programme par GOTO), ni d'entrer dans un sous- 
programme par GOTO. Les sous-programmes sont utilisés non pas seulement pour 
économiser de la place mémoire, mais aussi (et plutôt) pour les raisons suivantes : 


Q Par souci de clarté : le “programme principal” est plus court. 

U Les sous-programmes permettent éventuellement de répartir la programmation entre 
plusieurs programmeurs. 

Q La mise au point se fait sous-programme par sous-programme. Ainsi on progresse 
plus sûrement dans la mise au point de l'ensemble du programme. 

Q Dans le cas où la même séquence d'instructions est répétée, une modification dans 
cette séquence doit être faite aux différents endroits où elle a été écrite (fastidieux). 
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D Lorsqu'un sous-programme est modifié, la “zone d'intervention” est bien délimitée : 
tout le programme ne risque pas d'être remis en cause. 

D Les sous-programmes ont aussi l'avantage, lorsqu'en cours de mise au point, il faut 
“restructurer” le programme, de permettre une certaine souplesse ; l'ordre d'appel 
des sous-programmes est à modifier mais ceux-ci ne changent pas. 

D Plutôt que d'insérer une nouvelle séquence d'instructions correspondant à l'ajout 
d'une nouvelle fonction, on peut écrire un sous-programme qui est appelé quand 
nécessaire. 


Les avantages des sous-programmes sont donc multiples. Aussi n'hésitera-t-on pas à 
en faire un usage abondant, même lorsqu'ils ne comportent que quelques instructions. 


LES BRANCHEMENTS MULTIDIRECTIONS 


8 ON X GOTO... 
= ON X GOSUB... 


ON X GOTO n° lignel, n° ligne2 


Suivant la valeur d’une variable (ou d'une expression) : 1, 2, 3... il y a branchement 
au n° de ligne1, n° de ligne2, n° de ligne3..… 


S'il ne correspond pas de numéro de ligne à la valeur de la variable, c'est l'instruction 
qui suit "ON GOTO” qui est exécutée. 


À INPUT "Votre choix <1,:2,32 ";ch 
29 
39 ON ch GOSUB 196,309,564 

4 À  h 


48 * 
ce STOP CH=1 CH=2 CH=3 

De. 

Fe PRINT "Choix 1 

128 STOP 

10 ” 

res PRINT "Choix 2" X = X= 3 
315 STOPF =] 

339? 

592 PRINT "Choix 3" 

519 STOF X = 2 

ru 

Votre choix <1,2,3) 7 2 

Choix 2 


ON X GOSUB n° lignel, n° ligne2..…. 


Fonctionne comme ON X GOTO, mais dès qu'une instruction RETURN est rencontrée, 
il y a retour automatique après l'instruction ON X GOSUB... 


EL INPUT "Votre choix (1:2,3)2 ";5ch 


38 ON ch GOSUB 166,2304,598 
49 PRINT "Suite" 

56 GOTC 18 

68 * 

1608 FRINT "Choix 1" 
129 RETURH 

139 * 

38G PRINT “Choix 2" 
319 RETURH 

390 ” 

095 PRINT "Choix 3 
218 RETURN 
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5 ERR # RESUME 
# ERL # ERROR 
# ON ERROR GOTO 


ERR-ERL 





Dès que survient une erreur pendant l'exécution d'un programme et si l'instruction “ON 
ERROR GOTO n° ligne” a été prévue, il y a branchement à un programme d'erreur au 
numéro de ligne spécifié dans l'instruction “ON ERROR". 


Ce programme d'erreur analyse alors l'erreur en testant les valeurs de ERR et ERL qui 
représentent respectivement le code erreur et le numéro de ligne où s'est produite 
l'erreur. 


Après avoir analysé et traité l'erreur, l'instruction RESUME permet au programme d'er- 
reur de provoquer un retour au programme où s'était produite l'erreur. 


Ÿ ON ERRÜR GOTO 199 en cas d'erreur 

s + 

28 INPUT "Diviseur';d 

38 PRINT 19/d 

49 SOTO 29 

9G mme ue mu mu me en 4an31335e erreur 

199 PRINT "ER#=";ERR;"ERL=";ERL 

119 IF ERP=11 AND ERL=39 THEH PRINT "Division Par zero inter 
dite'"':RESUME 29 

129 PRINT "Erreur non reconnue":STOP 


run 
Diviseur?7 5 
2 


[ 

Diviseur? ÿ 

Division Par zero interdite 
Diviseur? 


ON ERROR GOTO 0 





Ecrit dans un programme de traitement d'erreur, il annule ON ERROR GOTO N° ligne. 
L'erreur est donc traitée normalement par le système (interruption du programme et 
message d'erreur). 


Remarque : la division par zéro n'arrête pas l'exécution du programme. 


RESUME 





Ecrit à la fin d'un programme de traitement d'erreur, RESUME spécifie où doit se 
poursuivre l'exécution du programme : 





RESUME l'exécution se poursuit au numéro de ligne où s'est produite 
l'erreur. 

RESUME NEXT l'exécution se poursuit au numéro de ligne après celui où 
s'est produite l'erreur. 

RESUME N° ligne l'exécution se poursuit au numéro de ligne spécifié. 

ERROR 

ERROR N° erreur permet à l'utilisateur de définir ses propres codes erreurs 


(compris entre 0 et 255) et de provoquer un branchement à 
ON ERROR GOTO... comme si une erreur avait eu lieu. 


10 ERROR 11 provoque un branchement à ON ERROR GOTO... 


Remarque : “ON ERROR GOTO N° ligne” doit être écrit de préférence en tête de 
programme afin d'être interprétée avant que ne survienne une erreur. 
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LA MISE AU POINT 6 
DES PROGRAMMES 


# ESC 5 TRON 
sm CONT nm TROFF 
a STOP/END 


Les programmes ne fonctionnent pas toujours “du premier coup”. BASIC envoie des 
messages d'erreurs (de syntaxe par exemple) mais ne détecte pas les erreurs de 
logique. Pour les cas les plus délicats, il faut suivre le déroulement du programme 
étape par étape, ce qui est relativement simple en BASIC. 


ESC - CONT 





En appuyant sur ESC deux fois (une fois pour l'instruction INPUT) nous interrompons 
l'exécution du programme. Nous pouvons alors visualiser les valeurs des variables en 
mode immédiat. 

L'exécution interrompue peut être poursuivie en frappant CONT (continue). 


Exemple : 


Le programme ci-dessous effectue la moyenne de plusieurs notes. Nous avons commis 
(volontairement !) une erreur. En 50, au lieu de TNTE = TNTE + NTE, nous avons 
écrit TNTE = NTE, 


14 trte=f 

15 nnte=fg 

39 INPUT "NOTE "'inte 

mé se nte=g THEN 144 pren 

24 tnteznte si 

1% LS nes | SRE 
‘4 GOTO 38 


198 PRINT "Moyenne: ";:tnte/nnte 


run w On entre O 
NOTE 7 i A pôur indiquer la fin 
WOTE 7 1 ? ré des notes 

Ce 


NOTE 7 1 
NOTE ? 


# 
Moyenne: £ "| La moyenne devrait être 15,3 





Swlolen 


Remarque : Les instructions 10 et 15 qui initialisent les valeurs de TNTE et NNTE à 
zéro ne sont pas indispensables puisque RUN les initialise à zéro. || est cependant plus 
prudent de le faire dans un programme plus important où TNTE et NNTE pourraient 
déjà avoir été utilisées dans une autre partie de programme et avoir une valeur non 
nulle. 


Exécutons à nouveau le programme et interrompons-le après avoir entré la première 
note. Nous pouvons visualiser en mode direct les valeurs des variables NTE, TNTE et 
NNTE. 


a = , 


PLU 4 | 
HÔTE 7'#Etealt 4 ar | 
Break in SE 

Visualisation d TE , : Jt. 

ET direct rs HT HT MTES:THTE: TATELNNTE 3 { 


Pour l'instant, rien d'anormal. 


Frappons CONT pour continuer l'exécution du programme et interrompons à nouveau 
le programme après avoir entré la deuxième note : 









LONT— 
EE 


FEIHT MTE,THTE, MHNTE 


Le cumul pour TNTE à ä 
n'est pas effectué 13 12 Cl 
Et 


| 





Nous nous apercevons en regardant la valeur de TNTE que le cumul des notes n’est 
pas effectué. 


STOP 





Au lieu d'appuyer sur la touche ESC, nous aurions pu placer une instruction “STOP"’ 
en 65. 
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cette instruction NOTE) 7 15 


Ereak in 65 

Ready 

Print tnte, nntez 
15 1 











On peut voir à chaque 
passage dans la boucle 

Comment évoluent les valeurs 
des variables TNTE et NNTE 






cont 
NOTE # 137 
Break in 65 


Print tnte,:nnte 
13 2 


En cas de “BOUCLAGE” de programme : 


Lorsqu'un programme ne s'arrête pas, appuyer sur ESC : frapper TRON puis CONT. 
On peut ainsi localiser la partie du programme où la boucle s'effectue. 


TRON-TROFF 





Les commandes “TRON’ et “TROFF” peuvent être incluses comme instructions dans 
un programme. 


Exemple : 


19 i=1 

oi 

38 i=i+i 

49 IF i=S THEN 79 
59 GOTO 48 

68 ? 

8 END 


tron 

run 
L151L203L261L483L581491L581L48IL501L49IL591L433L501 
C401L591L401] 


troff 


| programme 
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LES FONCTIONS ARITHMÉTIQUES 


L'argument des fonctions trigonométriques est normalement exprimé en radians. L'ins- 
truction DEG permet de l'exprimer en degrés. Le retour aux radians se spécifie par 
l'instruction RAD. 


19 RAD 

9 PRINT SIMPI/2) 
39 DEG 

49 PRIHT SIN 98) 
39 RAD 


Fun 
1 
1 


ABS(X) Fournit la valeur absolue de X : 

100 PRINT ABS(-35) ———» 35 
ATN(X) Donne en radians l’arctangeante de X. 
CINT(X) Convertit X en un entier avec arrondi : 


100 PRINT CINT( 1.6) ——» 2 
110 PRINT CINT(—1.2) ——»  —f 


COS(X) Donne le cosinus de X. 
CREAL(X) Convertit un nombre en réel. 
EXP(X) Donne l'exponentielle de X. 


FIX(X) Supprime les chiffres après la virgule : 


100 PRINT FIX( 2.2) ——» 2 
110 PRINT FIX(-2.2) ——» 2 


7 Lé — CR M © RTE D D 8 


FRE(0) Donne la place libre en mémoire centrale 
(l'argument 0 n'est pas utilisé). 


INT(X) Donne la partie entière de X avec arrondi : 


100 PRINT INT( 2.2) ——» 2 
110 PRINT INT(-2.2) ——» _3 


LOG(X) Fournit le logarithme de X. 


LOG10(X) Fournit le logarithme en base 10. 
100 PRINT LOG10(100) ———————» 2 


MAX(X...,2) Donne le maximum d'une liste. 
100 PRINT MAX(15,4) ——— 15 


MIN(X...,2Z) Donne le minimum d'une liste. 
100 PRINT MIN(15,4) —————># 4 


ROUNDIX.N) Donne l'arrondi de X avec N décimales. 
100 PRINT ROUND (123.456,2) ——_» 123.46 


SGN(X) Donne le signe X : on obtient respectivement —1, 0, +1 
pour les valeurs négatives, nulles, positives. 
SIN(X) Donne le sinus de X. 
SOR(X) Donne la racine carrée de X (X doit être positif). 
TAN(X) Donne la tangente de X. 
UNT(X) Convertit un entier sans signe en un entier entre —32768 et +32767. 
DEF FN(X, Y,2) 





En plus des fonctions internes (telles que SQR, SGN, INT, etc.), l'utilisateur peut définir 
ses propres fonctions par : 


DEF FNXX (X,;Y,Z....) = EXPRESSION (X,Y,Z...) 


où XX représente un nom choisi par l'utilisateur pour identifier sa fonction (les règles 
d'appellation sont les mêmes que pour les variables) et X,Y,Z... les arguments de la 
fonction. 


Plus tard, cette fonction sera appelée par le programme avec les valeurs réelles des 
paramètres. 
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L'exemple ci-dessous donne la moyenne de trois nombres. 
19 LEF FHmouéie, y, 2 ec buy z 1/3 
ES 
34 FRINT FHmout14,6,1%) 
FUN 


15 


Une fonction ne peut être écrite que sur une seule ligne de 255 caractères au plus. 
C'est de préférence en tête de programme que sont écrites les fonctions de facon à 
être interprétées avant qu'elles ne soient appelées. 


| programme 
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L’ACCES À LA MÉMOIRE ET & 
ENTRÉES-SORTIES DIRECTES 


L’ACCÉÈS À LA MÉMOIRE 


ns PEEK = INP 
a POKE s OUT 
#“ HIMEM um WAIT 
5 MEMORY 


PEEK (adresse mémoire) 





Fournit en décimal le contenu d'un octet de la mémoire. 
19 FOR m=1 TO 5 


€8 PRINT m,PEEKCmo2 
39 HEAT m 

Î 137 
2 Ra 

3 236 

4 f3 

d 133 


POKE adresse mémoire, valeur 





Range une valeur exprimée en décimal (0—255) à l'adresse spécifiée. 


65 
1g POKE S9958,65 ! 65 dans SA 
cf PRINT PEEKS 5069 » : affiche le contenu de S009 4 


UT 50000 


69 


Naturellement, il faut que la mémoire adressée soit modifiable. 


UV | LS ADIS LAIT À IPS LS 


Le programme ci-dessous visualise le contenu de la mémoire à l'écran ou sur impri- 
mante. Les adresses mémoires et les contenus sont spécifiés en hexadécimal. Pour 
les visualiser en décimal, supprimer HEXS$. 


Em ——— dumP memoire 

c6 MODE 2 

36 INPUT "Adresse depart (en decimal où hexa Cüxxx)3ù ";ad 
49 INPUT "Comhien d'octets "in 

39 INPUT "Imprimante <O/N5 "org 

e IF r$="0" OR r$='"o" THEN P=8 ELSE P=9 

ra ? 

89 FÜR 3m=34 TO acd+n STEP 2 

99 PRINT #P,"&'";3HEXS( am); TAECS ); 

193 19$="" 

115 FOR k=9 T0O'7 

129 CzPEEKC am+k 2 

154 PRINT #P,HEX86 cc); TAEC12+k%4 2; 

149 IF c?31 AHD <c<i28 THEN 12$=136%+CHR$éc) ELSE 19$=138+CHR$4 32) 
158 MEXT k 

166 PRINT #P,195$ 

179 HMEXT am 


Adresse dePart en detimal ou hexa C&xxx)) 7 L163 
Combien d'octets 7 294 
ImPrimante CD/H2 7 


&138  2D 20 20 20 26 64 75 6D ---- dum 
&199 9 €9 6D 65 60 6F 69 72 P memoir 
4193 635 6 5 14 9 AD 29 & 


MINS  Z2£Z 41 64 72 65 73 F3 65 "Adresse 
RES 29 64 65 Fÿ 61 72 74 29 depart 

LIES 23 63 6E 24 64 63 63 69 (en deci 
&ICH 6D 61 6C 29 €F 5 29 63 mal ou h 
RICS 63 78 61 29 29 28 26 78 exa (ex 
&1D9 78 78 23 29 29 22 38 D  xx)) “5! 
2105 6 GG 61 E4 &@ 1F W 2% 3 Ç 
&IES 9 A3 29 22 43 6F 6D 62 "Comb 
RIES 69 65 6E 29 64 27 6F 63 ien d'oc 


HIMEM 





Fournit l'adresse mémoire maxi utilisée par BASIC. 


10 PRINT HIMEM 


MEMORY adresse 





Modifie l'adresse mémoire la plus haute de la mémoire pour BASIC. 
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14 PRINT HIMEN 
24 MEMORY 49098 
29 PRINT HIMEM 


run 
45143 
42494 


INP (n° entrée) 





Lit sur l'entrée spécifiée une valeur comprise entre 0 et 255. 


19 PRINT INP(&FF177) 


RE NE 


Envoie vers le numéro de sortie indiqué la valeur spécifiée (entre 0 et 255). 
OUT %F8F4,10 


WAIT n° entrée, octet om 


Suspend l'exécution du programme jusqu'à ce que (valeur entrée) AND (octet) <> 0. 


WAIT S&FF34,20 


| programme 


LES NOMBRES ALÉATOIRES | Ÿ 


= RND 
#5 RANDOMIZE 


Les nombres aléatoires sont essentiellement utilisés pour les programmes de jeu ou 
d'éducation. 


RND(X) pour X > 0 ou RND 


Fournit un nombre aléatoire compris entre 0 et 1 (1 exclus). 


19 FOR n=1i TO 3 
29 FRIMT RMDK 1), 


36 NEXT n 
run 

D.271949658 6.528612386 6.921336127 
run 

ÿ.175138616 G.657/r3343 6.653729687 


Pour obtenir des nombres entiers entre 0 et 9 par exemple, il faut : 


0 multiplier le nombre obtenu par 10, 
Q prendre la partie entière du résultat, avec la fonction INT (X). 


1 FÜR nzi TO 4 
cB  x=RNDé 123 

39 y=x#19 

48 Zz=INT( 32 

59 PRINT x,9,Z 


68 NEAT 
9.196333 5.14635735 8 
3.173533121 1.r3633121 1 
9.254r36642 2.207 26645 3 
9.5:54425335 GS 285399 © 
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Pour obtenir un nombre entier entre 1 et 10, il suffit d'ajouter 1, 


19 FOR nzi TO 6 
A PRINT INTC ÉHDK10 341 ; 
SA HNEXT 1" 


3 8 8 1 4 2 


RND(0) —————————————. 


Fournit le dernier nombre aléatoire généré. 


15 FÜR n=1 TO 3 
2 PRINT RHD 


39 NEXT n 
49 PRINT RHDéGg) 


9.182864718 
9.3527389395 
ÿ.3r75612436 
5.375612436 


RANDOMIZE EE —————_—_—_——— 


Initialise une série aléatoire qui dépend de X. La série est toujours la même pour X 
donné. 


15 RAHCOMIZE 6 * initialise une serie 
28 ‘ 


34 FOR i=1 TO 3 
49 PRINT RNDK 1) 
58 HEXT i 


FU" 
ÿ.271949653 
9.325612386 
5.92133%127 


run 
9,2719496538 
9. 523612386 
9.9213359127 


Pour générer des séries aléatoires différentes, faire : 
RANDOMIZE TIME. 
3 KANCDOMIZE TIME 
BE FOR met TO à 


59 PRINT, RHOK1) 
44 MEXT x 
5.362625518 
ÿ,325r33611 
A, FÉ6193714 


5, 22929996 
1.45415E-92 
5.5347328433 
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LE GRAPHISME HAUTE RÉSOLUTION 


m MODE # CLG 

# PLOT/PLOTR m TEST/TESTR 
#5 DRAW/DRAWR m TAG/TAGOFF 
#5 MOVE/MOVER # ORIGIN 

# XPOS/YPOS 


MODE 


L'écran est divisé en 400*640 points. Il existe trois modes : MODE 0, MODE 1, MODE 
2. Suivant le mode, la taille des points allumés est plus ou moins importante, mais 
l'adressage se fait toujours dans la résolution la plus élevée, c'est-à-dire 400*640. 
L'adressage se fait soit en absolu, soit en relatif. 


Y (D — 399) 


solrsmssommmmmmmenemensesresss æ X  (0— 639) 


FÉ ONI LR t À BLTANT L LL RL Z 


PLOT X, Y,stylo 
PLOTR DX,DY,stylo 





PLOT X,Y allume le point X,Y spécifié. 


15 MODE 2 
24 PLOT 149,196, 1 





Allume le point de coordonnées 100,100. 
Si le mode spécifié est MODE 1, le point allumé est plus gros. 


15 MÜCE 1 
29 PLOT 198,199, 1 


Mais l'affichage se fait au même endroit. 
PLOTR DX,DY allume un point par rapport au point courant : 


19 MOCE 2 
29 PLOT 199,1@4,1 
39 PLOÔTR 29,26G,1 * deécalade de 29,29 “129,129 en absolu) 
DRAW X,Y,stylo 
DRAWR DX,DY,stylo ———————. 
DRAW trace une droite entre le point courant et le point spécifié. 
19 MOCE 2 


eh PLOT 196,18 
39 CRAU 265,24 * droite entre 100.198 et 209, 264 


200,200 


100,100 
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DRAWR DX,DY spécifie un déplacement relatif au point courant : 


19 MODE Z 
28 PLOT 155,159, 1 
39 DRAUR 199,108, 1 " droite entre 164,165 et 264,206 


Les programmes ci-dessous représentent un carré de 100,100 en absolu et en relatif : 


Le “rrnemerses carre 

29 MOCE 1 

39 FLOT 194,199, 1 " Positionne en 199,19G 

49 CRAH 29ÿ,198,1 ‘ droite avec le Foint 299,169 


+5 DRAU 265,296, 1 
04 CRAN 199,266, 1 
69 LRAH 199,168, 1 


JO 'mmmmmmmmmmm carre en relatif 

19 MODE 1 

25 PLOT 169,199,1 * Positionne en 188,140 

39 DEAUR 194,5, 1 * droite dx=19f4 dy=9 

43 DRAUR 9,199,1 * droite dx=ÿ dy=1itm 100,100 


29 DRAUR -195,6,1 
62 DRAUR G,-148, 1 


Le programme ci-dessous représente un rectangle plein : 


14 mm rectan3le 

24 MODE 1 

39 xa=196::2=195 * origine 

4 1=299 ? lonsueur 
99 Hh=199 * hauteur 


69 FÜR x=xa TO xa+l 
F PLOT x;,:ya, 1 

2 CRAN x,ya3+h,1 
98 HET x 


Remarque importante : 


Lorsque le numéro de “stylo” n'est pas spécifié dans l'instruction PLOT ou DRAW, le 
stylo par défaut est le dernier utilisé. Par conséquent, si un programme précédent a 
utilisé le stylo 0, le programme en cours ne trace rien. || est donc prudent de spécifier 
le numéro de stylo. [Il est également recommandé d'initialiser la table des couleurs qui 
pourrait être modifiée par un programme précédent. 


10 INK O,1 : INK 1,274 


MOVE X, Y, stylo 
MOVER dx, dy, stylo 


Positionne le curseur graphique (comme PLOT et PLOTR) mais sans affichage. 


XPOS/YPOS 


Fournit la position du curseur graphique. 


14 MODE 1 

cg MOVE 195,148 

39 CRAH 155,149 

99 PRINT #P0S, *POS5 


155 145 


CLG papier Lu + Yet OR 
Éfface l'écran graphique. Positionne le curseur en bas de l'écran graphique. 


CLG 2 


TEST (X,Y) 
TESTR (X,Y) —————— 


Donne le numéro de stylo qui a été utilisé pour le point X,Y. 


10 MODE 1:PEN 1:PAPFER 0 
20 FLOT 100,100, 1 

30 PRINT TEST(100, 100) 
RUN 


Î 


ORIGIN X,Y, gauche, droite, bas, haut, 


Redéfinit l'origine du curseur graphique. Les coordonnées Spécifiées dans PLOT, DRAW 
et MOVE sont relatives à la nouvelle origine. 


Ci-dessous l'origine est redéfinie en 100,100. DRAW 30,30 trace une droite entre la 
nouvelle origine et le point 130,130. 


189 MODE 1! 
25 JRIGIH 199,108 * redefinit l’origine 
39 CRAH 39,39 " trace Une droite 2 Partir de 198, 19 


Si les paramètres gauche, droite, bas, haut sont spécifiés, une fenêtre graphique est 
définie. 


10 “--- ds GRAPHIQUE 

20 MODE 

30 INK . O: INK 0,26 

40 ‘-- Origine 440, 100 

20 ORIGIN 440,100, 440, 649,100,300 
60 CLG 2 

#9) ‘= 


80 DRAW 200,200,3 
70 MOVER -5, w 
100 FILLE 3 CPCé64 SEULEMENT 
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TAG n° fenêtre 
TAGOFF n° fenêtre 


Pour afficher du texte à la position du curseur graphique, on utilise TAG. Le texte est 


affiché sous le curseur graphique. 


Si l'instruction PRINT n'est pas suivie d'un point-virgule, les caractères CHR$(10) et 


CHR$(13) sont affichés à la suite du texte. 


SG affichage avec TAG 

19 MODE 1 AMSTRAD 
29 TAG SAN 
39 FOR x=199 TO 299 STEF 19 moines 

49 MOVE x,Xx ANS LL 


99 PRINT "AMSTRAD"; 
69 NEXT x 


TAGOFF annule l'effet de TAG ; l'affichage par PRINT se fait normalement à partir du 


curseur texte. 


Voici divers exemples de programmes utilisant la haute résolution. 


Ce programme affiche un histogramme de 4 valeurs définies en DATA. 


12 MÔCE 1 histogramme 

36 x9=20:y5=198 * origine 

49 13=15 * largeur 

JO itv=2 * intervalle 


69 DATA 59,79,29,89 

T9 FOR i=1i T9 4 

54 FRERC h 

36 #b=x +6 1-1 1#kity 

199 Ce=IMTé RAD 1 2K3 +1 / couleur 
119 FOR dx=1i TO 12 * rectangle 


129 PLOT xb+dx,49,ce:DRAM xb+dx, 38+h,ce 


159 HEXT dx 


LOR 'mne ax23 
168 PLOT x9,:469, 1:DRAU x9+194,49 
178 PLOT +4,49, 1:DRAU >:9,34+149 








D Le programme ci-dessous affiche les 15 premières couleurs de la table des couleurs 
en MODE 0. 


trace 15 boites de Couleurs differentes 
essayer 4vec mode 1 


48 ’ 

59 MODE g 

69 INK G,1:INK 1,24:PAPFER H:PEH 1 

F6 xÿ=-24:y6%=-199 ? origine 

99 139=15 * larseur 

38 itv=2f * intervalle 


199 FOR i=1i TO 15 
119  xb=xg+(i-1)#itv 


129 cezi ? couleur 

139 FÜR dxz=1 TO 19 / rectangle 

145 PLOT xb+dx,u16,ce:DRAH xb+dx,u59+195,ce 
199 MEXT dx 

169 MHEAT i 





O Anneau 


En traçant un cercle plein en couleur de fond sur un cercle plein, nous représentons 
un anneau. 
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LU mme 3NNEe AU 

25 MÜCE 1 

56 INK W,1:INK 1,24:PAPER D:PEH 1 

49 292196 :49=1894:r=269:ce=1:GOSUB 89 *? Îer cercle 
où r=df:ce=ÿ:GiISUB 54 * eme cercle 
64 END 

AS cercle 

SÙ re=rxkr 





Où FOR dx=-r TO r 

154 du=SRi re dxkdx 12 

119 PLÜÛT xG+dx, s50+du :DRAU xf+cs, 1G-dy ,ce 
129 HEXAT dx 

129 RETURH 


2 Croissant 

Avec le même principe que ci-dessus, nous représentons un croissant. 
19 mme sm croissant 
c6 MOCE 1 


ES INK B,1:INHK 1,24:PAPER G:PEM 1 
29 xXÿ=199:539=190 :r=69:cez1l:COSUB 79 * ler cercle 


48 xH=166:r=89:ce-9:COSUE 74 ? 2eme cercle 
54 END 
OU “rase e cercle 


Tr r2zr*r 

C4 FOR dxz-r TO Fr 

SU dy=SsORC rzE-C dxkcds à) 

148 PLOT xB+dx, 1@+du4: DRAM xB+dx, 1G-dy,ce 
119 HET dx 

129 RETUFRH 


2 Ours 


Le tracé de l'ellipse est réalisé en faisant pivoter une droite autour du centre. Le “pas” 
dépend de la grandeur de l'ellipse. 





24 MOCE 1 
39 IHK D,1:INK 1,24:PAPEF-G:FEN 1 
45 xg=194:,9=156 


OÙ HI=xA:y1=yG:r=6g:cezi: COSUE 129 * tete 

65 #1=#9-49:Y1=r75+59:R=4g:GOSUE 129 * oreilles 
F6 A1=*9+44:%1=Y6+59:#k=49:COSUE 129 

3 xI=xm'yl=uG-19:r=1G:ce=G: GCOSUE 126 Ÿ nez 

AA x1=:0-29:ui=u0+29:res: COSUB 154 ‘ Jeux 


198 xi=x0+29:u1=569+29:r=6: COSUB 188 
. PLÜOT xf6-4,19-32:0ORAN x9+2,135-22,09 
ce ? 
154 FOR y=-14 TO 14 
145  PLOT x9-29, 99-709+9:DRAN x2+50, 497 Guy, 1 
159 NEXT 4 
159 EHD 
LD e1l1liPsze 
129 Hher%2:lzr#2,3 
155 FOR a=9 TO Z#PI+S,1 STEP 1.2/r 
2OB  xzxl+6 1/2 5KCOSS a à 
21H y=y1+0h/23#SIN( a) 
Ce  PLOT xi:y1:DRAU x,u,ce 
234 HEXT a 
244 RETURN 
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Q Palmier 


19 
22 
39 
49 
m5) 
64 
rÿ 
59 
34 
166 
145 
119 
129 
1359 
153 
149 
159 
169 
179 
139 
159 
246 


de mu mn mn Dm Palmier 


DEG 

ORIGIN 599,29 
MOYE 9,8 

FOR azi TO 29 


FOR b= -39 TO 934 STEF 59 
DRAN SINCE J4LOGK 29-a+1 49-19, COS D 24S4L 06 29-23+1 1+3#11 
NEXAT b 


- 


RAC 

a%="Pascale" 

b=LEHC 4% 2 

TAG 

FOR czi TO b 

FOR 9290 TO 279 STEP 14 
X=SINC d'iké cX5 1243-19 
y=COSC di CZ IK86+25Y#3 
MOYE %x:3Y: PRINT MIDSa%,c, 1); 

HET d 

NEXT € 


Q Âraignée 


24 
39 
49 
99 
68 
9 
85 
35 
15 
119 
129 
155 
148% 
155 
165 
17@ 
155 
155 
299 
21 
229 
2:39 


en. 
NODE 1:INK G'1:INK 1,24 LE 
#0=300 :YQ =200 f € EAN à 


=50 


AUS f 
FOR M=1 TO 3 STEP 9.3 ie U)) 
SE 


PLOT x@+r%m, 314, 1 
FOR A=PI/d4 TO Z#FI+9.1 STEP PF1/4 
A=FAMECOSS À 5+%09 


TERMES INC A +75 


Êx 


ERA 4, %, 1 
PLOT #9,79: DRAM #,Y 
NEAT À 
MEXT 1 


PLOT X9+R, YO+89, 1:DRAM XS+R,"g+R 

LOCATE 21,21:PRINT CHR#(225) 

LOLATE Z1,Z22:PRINT CHRSC 162) 

LOCATE 29,22:PRIHT CHRS&C 192); CHRSC 196 ); CHR 193 ); 
FOR 4=1 TO 1W3:HEXT 

LOCATE 29,22 :PRINT CHRSÇ 193 2; CHRSC 145 ); CHRSC 192 5; 
FÜR a=1 TO 199:MEXT 

GOTO 135 
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D Histogramme circulaire 


29 MODE 2 

54 INK D,1:INK 1,24:PAFER G:PEN 1 
+9 Hé 15=59,2:h$8 1 ="tarte" 

29 hé25)=9,3:h$62)="omoissant" 

69 hé32=8, 1:h$ 3)="brioche" 


159 
119 
125 
155 
14% 
159 
156 
1ra 
155 
199 
ch 


306 
314 


08 CS 125, L''hà(S5i="pain" 


F9 Fi 425,3: hS$6 d'is"oclair" Mises” | tarte 


xXAa=290 :y3=700 
r=ég 
PLOT KAŸr,: 143 
FOR 43=9 TO Z#PI+9,1 STEP 9.1 
=xatr#COS£ à à 
d=ya4+r K SIN a) 
CFA %:4, i 





eclair 


GS affichase texte 
33=ÿ 
FOR P=i T0 5 

3=Aaa+PI#2#KHNEP à 

XES HI H ÉLUS à D: y=ya+r#4S IMC a à 

PLÔOT x3,4a:C0ORAN %x,u,1 


at=33+PIX#Hhé P 5 * affichage texte 

X= 43 +41. SKCOEK at D:y=ya+r#k1, SKSINC at 2 

IF at2PIl-2 AND até3#Pl/2 THEN x=%-S#LENCH&cp 3) 
PLOT %x:4:TAG:PRINT h$cpe 2: 

34=3 

MNEXT À 


0 Chronomètre 


29 
39 
4 
35 
68 


6 

59 
36 

159 
119 
129 
1:93 
149 
158 
169 
1753 
1 4 
135 
259 
219 
229 


MOCE 2 

[MK G,1:INK 1,24:PAFER G:FEN 1 

“Y=399 :9=249:R=198 ‘ centre 

ORIGIN xä,uy@ * redefinition origine 


Q = mmmmmmmmme 3raduations 


FÜR A=9 TO ZXPI STEP PIL/6 
ASRED, BKCOS À 2: Y=R ED. AKS ANC Rd 
K1=RECOSC À 2: YIZRÉSINC A » 
PLÛT K,Y:1:DRAU K1,%Y1,1 
MEXT A 
À ne mouvement 3iquille 
R=R#D. 7 
FOR A=1i99 TO 9 STEP -PI/24 
KX=PÆLOS( à 2: y=r#&S IH a 2 
PLOT 5, 9:DRAU 3:51 
SOÜUHD 1,565, 2 
FOR TPzi TO 12G:NEXT TF 
DRAW 9,9,9 
WE*XT A 
END 


VV LPL LIL t EL BLTLLI & Lé 227 


AL M OT SD RDS SL CLS cercle 
259 FOR A=G TJ 2#PI +9.2 STEP 6.65 
269 DRAM r#COS a 2: r#SIM6 32, 1 

27 MEXT À 

259 RETUFH 


O Pour tracer un triangle plein. 


La façon la plus simple pour tracer un triangle plein consiste à faire pivoter une droite 
autour d'un sommet. 






La droite P.-P, 
pivote pour remplir 
le triangle. 


. | ee triangle Plein 

29 ‘ On fait Pivokter une droite autour de PS entre F1 et F2, 

39 ‘ Au lieu de calculer Yeféx), 

49 * on calcule #aFét) et YafCD) avec D variant avec un Pas de 1 
SE MODE 2 

F9 INK W:1:INK 1,24: PAPER B:PFEN 1 


Tr) xs 149 :yJ5= 1156 Ÿ er PouintéPivot) 
90 xi=21D:41-23ÿ * 2eme Point 

14 x2=129:1y2220904 " GSeme Point 

119 ‘ 


129 AeSRE ge 1 PSE ml 1925? distance entre F1 gt FE 

13539 IF cd=H THEH ED 

149 crus] 5, d:cusé g2-u1 3/4 

154 FOR dd=g TD d * on Parcourt 14 droite entræ Pi 
169  x3=x1+ddkcx: 43214 1+dd#£cy st FZ 

179 PLOT xd:uGce:DORAU x3:u3;1 

159 MEXT dd 

199 RETURH 


cf 


154 
11% 
126 
139 
145 
156 
1649 
173 
154 
134 
299 
219 


73 
39 

39 

199 
119 
128 
139 
145 
{5ù 
155 
173 
18 
133 
240 
219 


nCotss :kxc=240 : CÜOSUB 14% 
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D Figures inscrites dans un cercle 


4 


mme FSU ES inscrites dañs un cercte 


4 


MÜDE Z:INK @,1:INK 1, 24:PAFER G:PEM 1 
KC=19ÿ:yc=1094 
r=5g 

neo tas 

GCOSUE 145 


" centre 
" ro" 
nombre de cotes 


‘ 


né Ce lé té dotée conne té ques pren nt te tt hs mt maté 


* HhexaS3one 
ncots15:xc<5066 : CGOSUB 149 
EHC 

À te SF gr 
PLOT xc+r,:1yc 
FOR c=1 TO ncot 
a=Cc#PI#2/ncot 
x=xC+r*#CUSC a 1 
Y=YyiZ+r£kS IN 4 2 
CRAU %x,4,1 
NEXT € 

RETURH 


* cercle 


Q Etoiles 


DR het MAR ant nat dont nus At US Gi ue mnt mme an Au dom doté Pond cm oui 


trace d'etoiles 


MODE Z2:IMK G,1:INK 1,£24:PAPER G:PEN 1 

* rentre 

F3 af" 

nombre de branches 


xC=1W9:yc<190 
r=52 

ncot=s 

GOSUB 149 


T rs dé es EE TT ee — 


4 


? 


PLOT xc+r,uc 

FOR ci TO ncot 

A=CRC nocot-1 KPIL/ncot 
k=xC+rKCOSL 3 } 
Y=yCc+r£S INC 3 5 

DFA ME s 

MEXT < 

RETURN 


2HA MEAT © 
“14 RETLURH 





2 Recopie d'écran 


Nous proposons ci-dessous un 


programme de recopie d'écran haute résolution pour 
l'imprimante AMSTRAD. 


102 | BASIC AMSTRAD 


2998 ‘mu moe oo mo me recoPie d'ecran sur imPrimante AMSTRAD 
5910 DEFINT 2-7 | É 


29269 DIM 124328} 

2939 1n=533 

2449 FOR 13=1 TO 39 

2659 FOR x=9 TO 319 

2966 L3C x 2=9 

2879 FOR P=9 TO 6 

2930 IF TESTCX#2S, ln-P#22>9 THEN 19 x2=19Cx2)+C2"p 5 
2899  MEXT P 

2189 MEXT x 

2119 PRINT #3, CHR#$(27 3; CHRSC 75 ); CHRSC 2 ); CHR 64 ); 
2129 FOR z=8 TO 3193:PRIHNT #43, CHRS$Ç 196 2)); :NEXT z 
213534 PRINT #8,CHRS( 19329) ) 

2149 ln=zln-1i4 

21539 NEXT 13 

2169 PRINT #5, CHRS$&C 152 


Pour obtenir une copie d'écran, faire : 
MERGE “HARDC” puis “RUN 2000” 


Il est prévu pour fonctionner avec PAPER 0. En revanche, la couleur d'écriture définie 
dans PEN n'a pas d'importance. 
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LA REDÉFINITION DES CARACTÈRES 


= SYMBOL 
#5 SYMBOL AFTER 


SYMBOL 





Les caractères standard peuvent être modifiés à l’aide de l'instruction SYMBOL. Ceci 
permet notamment de représenter des formes qui sont ensuite affichées et effacées 
très rapidement. 


La règle d'utilisation est simple : 


D On dessine le caractère dans une matrice de 8 x 8 points. 
2 Pour chaque ligne, on effectue la somme des “poids” des points de la ligne qui 
doivent être allumés. 


Exemple : 


Sur l'exemple ci-dessous, pour la ligne 3, on obtient : 
16 + 8 + 4 = 28. 


Ligne 1 
Ligne 2 | 





Dans une instruction SYMBOL, on indique la suite des nombres obtenus dans l'ordre 
des lignes. 


LA me toile 
cf MODE 1 
39 czisg Ÿ caractere a modifier 


49 SMEOL AFTER c 
9 S'MEOL C:8:9:29; 127: 29: 34,65,9 
64 FRIHT CHA ec à 


-SYMBOL AFTER om 
“SYMBOL AFTER” spécifie le premier code des caractères à modifier. 
Ci-dessous une étoile traverse l'écran de gauche à droite, puis de droite à gauche. La 


vitesse s'adapte grâce à la temporisation en ligne 170. L'effacement se fait en impri- 
mant un espace devant le caractère. 


104 | BASIC AMSTRAD 


19: ‘sms + deplacement etoile 

28 MODE 1 

36 INK 9,26 * fond blanc 

49 INK 1:59 ? encre noire 

59 PAPER G:PEN 1 

69 cz145 ‘ caractere reédefini 


19 SYMBOL AFTER < 
24 SYMEQL c,8,:9,29, 127,28, 34,639 


QG ‘mms ne eme dep licement etoile 
144 y=ig:ixi=1i:x2=36 * bornes 
119 s=1 ! sens 

1: ? 


139 FOR x=x1 TO x2 STEP s 

149 LOCATE %x:9:PRIHT CHRSC 32); CHRSC C2; CHARS 32 j; 
159 FOR tPp=1 TO SG:NEXT £€P 

169 HEXT %x 

179 x=xl:xI=x2: xX25x:5=-S ? inversion 

1239 COTO 139 


La forme ci-dessous est représentée avec deux caractères redéfinis. 


49 SYMBQL AFTER c 
JO SYMBEOL cc, 69, 56, 96: lala, 12 
68 SYMBOL c+1,0,4,9,249,249,240,16,48 


Fra chien$S=CHREC C+CHRSGC c+1 2 
89 LOCATE 16,:1S:PRINT chien$ 


Utilisation de TAG : 


Pour positionner un caractère avec le curseur graphique, on utilise TAG. Naïturelle- 
ment, le positionnement est plus précis qu'avec LOCATE. 


Exemples : 
0 Ciel étoilé 


19 ‘mm ciel étoile 

24 MODE 1 

34 INK 9,26 ? fond blanc 

44 INK 1,:@ / encre noire 

59 PAPER G:PEN 1 

Ag cel2s ? caractere redefini 


rg SYMEOL AFTER € 

99 S'MEBOL c:9:8:28,127,:29,; 24:65, 9 
259 TAG 

199 FOR e=1 TO 1589 

119 XxX=KMDC 1 2*509 

124  y=RNDE 1 343590 

139 MOVE x: 

149 PRINT CHR#(CC); 

159 NEXT # 
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À À 
+ de . 
À # # 4 Né Ah À 
ee Fe. À LA 2 
he k # À # À 
ps À de À de x 
_" , 
4 À À FA, E, #: 
sn DE ” ,* # 


Q Etoile (avec TAG) 


Ci-dessous, nous déplaçons une étoile. Le déplacement est plus progressif qu'avec 
LOCATE. 


19 mm dep licement etoile (avec TAC) 
cg MOCE 1 | 

39 INK 9.76 * fond blanc 

4% INK 1,9 ? encre noire 

9 PAPER D:FEH 1 

6 ceies f caractere redefini 


Fr STMEOL AFTER < 

15) SYMEOL Ci 83,29: 127,28, 34,65, a 

DD ou mm mm dep lacement etoile 
198 TAG 

118 FOR x=1 TO S@Gä STEP 2 

129 MOYE x,.29a 

139 PRINT CHRS $C 32 1: CHR Cù; 

149 HEXT x 


7 Formes de 16 x 16 points 
Pour représenter des formes de 16 x 16 points, il faut redéfinir 4 caractères. 


Ci-dessous, nous représentons une locomotive : 


CHR$(10) provoque un saut de ligne, 
CHR$(8) décale le curseur vers la gauche. 


DO *erenmmseresenme mme locomotive 
38 MODE 1:INK G1:INK 1,24 
4g C=145 * ler caractere 4 modifier 


59 SYMBQL AFTER C 

69 SMEUL c,9,9,6,9,16,0,48,42 

F 3 *MBOL C+1,5,9,9,9,254,192,254,254 

89 STMEQOL c+2,127,:127,127,127,255,255,48,48 
99 STMEOL C+3,254,254,254,254,255,255, 24, 24 
198 1$%= =CHRSC € +CHRSC C+1 +CHRSC 18 Y+CHRSC 8 D+CHRSC 3 I4CHRSC C2 + 
CHR C+3 2+CHRSA 1 1 à 

113 LOCATE 19,2:PRIHT 1$ 

129 t$5=15+1$ * train 
1:58 LOCATE 19,19:PRINT t$ 

149 ‘—--- chaine effacement 

159 ef#= =CHREE 22 + CHRSÉ 19 D +CHREC 3 +CHREC 32 y 
169 mm me avance locomotive 

179 y=18 

189 FOR x=24 TO 1 STEF-1 

199 LOCATE %X,Y:PRINT l$sefs 


IUU |! DAMODIL AID 1 KALJ 


2543 
219 
228 
238 
248 
258 
26 
Le 


ee | 


1” caractère 


3° caractère 


FOR tP=1 TO 1YB:NEXT tp 

MEAT %x ss 
Ru octo les avance train 

y=23 


FOR x=24 TO 1 STEP-1 
LOCATE X,Y:PRINT té;efs 
FOR tP=1 TO 1S0:HNEXT +tP 

MEXT %x 


2° caractère 


ERREERE se 


HIT 


4° caractère 





Pour déplacer la locomotive plus progressivement qu'avec LOCATE, nous utilisons 
TAG. La chaîne “h$” représente la partie supérieure de la locomotive et “b$” la partie 


inférieure. 


Fe sen ten mn dep lacement locomotive avec TAG 


MODE 1:INK 9,1:INK 1,24 

C=z14s " ler caractere 3 modifier 
SYMEOL AFTER C 

s''MBOL c'Ü0, 41,54 15:11, 42, 

SY'MBOL c+i,9.0,9,0, 0 onto 


it c+2,127,127,127,127,255,255,48,48 


5 MEL C+3,234,2954,254,254,255, 255, 24,24 


À hSeCHRSC € HCHRÈC CI SH CHRSC 32 ? haut 
A HESCHRSGE CHE ACHR SE +45 CHR Se 22 à * Has 
3=1a 

TAG 


FOR x=548 TO 1 STEP -2 


MOVE x,4:PRINT h$;:MOVE x,u-14:PRINT b5; 
HEXT x 
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O Générateur de caractères 


Nous proposons un “générateur de caractères” permettant de représenter des formes 
de 16 X 16 points. En mode “Télécran”, nous représentons la forme. Le programme 


fournit ensuite les valeurs décimales des 4 caractères. 








LU ULE0:0:0 0.8 9% 9 6 9.8.1 6 9 

“£ 3€ 

« »€ (5 | ti 

+ Mes ss 1 lé 254 
74 pos 

< x 3 6 158 
w #“ 3 2e 54 
H£ fes » a Sea 
Eu # NT € «7 
< x LEZ RAA 
4 74 3 18% oo 
“ K CT Lo 
+< fe es D eyS 
6 Éèe + À 5 Le 
“Æ 4 #3 & Le 

€ Re Bic 

MCE HEMC SE 

FLECHES FOUR DEPFLACER 

L :LEUER B:':BRRISSER F:FIN 
19 GEMERATEUR CE CARACTERES 16416 
cg MOCE 1 


DIM t618,18) 


m2 


FOR x=1 TO 18:LOCATE %x, 1:PRINT "X':LOCATE x: 18:PRINT "x'iNE 


AT 

FOR 3=1 TO 1S:LOCATE 1,3:PRINT "X"':LOCATE 18,Y:PRINT “x":ME 
; 5 

59 LOCATE 1,28:PRINT "FLECAES POUR DEPLACER" 

F9 LOCAIE 1,21:PRINT "L'LEVER B:BAISSER F:FIN" 

cg x=1ÿ:y=18 

DD "mm mme on mu 

188 CH=INKEYS:IF cé$é<2"" THEN 169 

119 LOCATE x:Y:PRINT CHR& 142) 

128 FOR tP=i TO 1S:MHEAT tp 

139 LOCATE x, 4:PRINT CHR& 32) 

149 GOTO 198 

1598 * 

169 IF cs=@ THEN LOCATE x,9:PRINT CHR#&C143):ttx-1,u—1 )=1 
179 IF cse=i THEH LOCATE %x,Y:PRINT CHR$&C32): té x-1,u-1 5=ÿ 
138 

1939 CcH=UPPERSC CS ) 

299 c=ASC(cS ) 

219 IF c=242 THEM IF x22 THEN x=x-1 

224 IF c=243 THEN IF x<17 THEN x=x+! 

239 IF c=241 THEN IF Y<17 THEN y=y+1 

24ÿ IF c=249 THEN IF Y>:2 THEN y=y-—1 

259 IF <c$="L" THEN cs=i 

264 IF c$="B" THEN ce=9 

279 IF c$="F" THEN 398 

258 G0OTO 199 

299 ‘= ee mme Calcul valeurs decimales 


EU CPE PE, EVER D ES. ALT. 


303 FOR CL=1 TO 2 Ÿ 2 colonnes 

319 FOR Lzi TO 16 * 16 liSnes 

329 PS=(CL-12%8 

336 HD=9 " valeur decimale 
348 FÜR “#=i TO 8 " 1 caractere 
3359 A=G:IF TéX+PS, Li=1 THEN Az 

369 ND=ND+R#2"(8-X%x 5 

379 NEAXT % 

389 LOCATE 2G+CL#5, L'PRINT HD; SPC 1) 
33@ HEXT L 

499 NEXT CL 

419 GOTO 195 


D Le programme ci-dessous représente une maison. 


1e stone maison 
39 MODE 1:INK B,1:INK 1: 24:PAPFER G:PEN 1 
49 C=125 * caractere 4 modifier 


00 SYMBOL AFTER C 

69 SYMBOL c;12,12,63,:127,:255,64,95,8S 

79 SYHBOL c+1,0,:9,2483,2592, EDS 2:52, 2 

89 SYMBOL c+2,95,95,85,25,95, 64,64, 127 

99 SYMEOL c+3,122,74,74,196,74,74,74,254 

199 MBSCHREC C J+CHRSC +1 2+CHREC 19 D+CHREC 9 D+CHREC 8 D+CHREC c42 V4 
CHREC c+3) 

119 PRINT m& 


Q Celui-ci des immeubles dont la hauteur est aléatoire. 


. 1 eq nn IMMEUBLES 
36 MODE 1:1IMK B,1:IMNK 1,24:PAFER BG:PEN 1 
49 C=125 * caracteres a modifier 


69 SYMBOL AFTER C 
78 SYMBOL C,255, 129, 129,129,129,129,129,25S5S 
73 cH=CHRSC C ) 

4 


89 

30 *E=1:YB=23 

188 ’ 

119 FOR N=i TO 5 * 5 immeubles 


130  H=RNDS 1 345+5 : L=RND 1 2K3+3 
148 FOR Y=YB TO YB-H STEP-1 
159 FOR X=*B T0 XB+L 

169  LOCATE X,Y:PRINT C& 

179  NEXT # 

189 MNEXT Y 

199 XB=XB+L+2 

299 NEXT N 


Readuy 
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LES SONS 


H SOUND us SQ 
& ENY = ON SQ GOSUB 
nm ENT nm RELEASE 


SOUND canal, période, durée, volume, enveloppe volume, enveloppe 
fréquence, période bruit 





Un son est défini par sa période, son volume et sa durée. Plus la période est grande, 
plus le son est grave. 


volume 






temps 


SOUND 1,478 canal,période 


Exemple : 


joue la note DO pendant 0,2 seconde. Pour jouer la note pendant 1 seconde, on écrit : 
SOUND 1,478,100 temps=1 sec. 


Le temps est spécifié en 1/100 de seconde. Le volume spécifié doit être compris entre 
0 et 7 si aucune enveloppe n'est spécifiée. Il est de 4 par défaut. 


SOUND 1,478,50,6 ‘temps=.5 sec./volume=6 
La fréquence en Hertz s'obtient par : 
fréquence = 125000/période spécifiée 
Pour obtenir un son de fréquence F, on calcule la période à spécifier par : 125000/F 
Exemple : 


Pour obtenir du 1000 Hertz, la période spécifiée doit être 125. 


19 INPUT "Frequence "35f 
z29 P=i25044/F 

39 SOUNC 1,P,149 

44 Soto 19 


L'instruction SOUND ne bloque pas l'exécution du programme. Plusieurs sons peuvent 
être joués simultanément sur trois canaux (A, B, C). 


15 SOUHND 1,125,169 * canal À 1969 HERTZ Pendant 1 seconde 


25 SOUND 2,599,299 " canal 8 259 HERTZ Pendant 2 secondes 
39 PRINT "SUITE" 


Avec une seule commande SOUND, on peut jouer la même note sur plusieurs canaux 
grâce à un système de codage. 


A 1 
B— 2 
C— 4 


Exemple : 


Pour jouer sur A et C, on code 5 (1+4) dans l'instruction SOUND. Chaque cane 
dispose d'une file d'attente pouvant comporter jusqu'à quatre commandes SOUND. 


La synchronisation entre des canaux se spécifie en codant : 


Synchronisation avec À _ 8 
Synchronisation avec B _ 16 
Synchronisation avec C _ 32 
Attente — 64 
Libère — 128 


Période : 


La période spécifiée dans SOUND doit être comprise entre 0 et 4095. 0 spécifie l'ab- 
sence de fréquence. 


Durée : 


La durée qui est par défaut 20 (0.2 sec.) doit être comprise entre —32768 et +32767 
Si la durée spécifiée est nulle, la durée est fournie par la commande ENV. Une valeu- 
négative donne le nombre de répétitions de l'enveloppe de volume. 


Volume : 


Il doit être compris entre 0 et 15. Sans enveloppe de volume, il est égal à 4 par défau: 
et doit être compris entre 0 et 7. Avec enveloppe de volume, il est égal à 12 pa 
défaut. 


Enveloppe de volume : 


Un son peut être “modulé” en amplitude par une enveloppe (de période plus iMpor- 
tante). Cf. instruction ENV. 


Enveloppe de ton : 
Cf. instruction ENT. 


GRAPHISMES EI SUN | ALL 


ENV numéro, nombre pas, pas volume, temps, nombre pas, pas volume, 
temps. 





Pour définir une enveloppe de volume, on indique le nombre de pas, le pas et le temps 
de pause (en 1/100 sec.). 


Exemple : 


Nous définissons une enveloppe croissante pendant 5 secondes puis décroissante 
pendant 5 secondes. 


volume 





temps 


10 pas=5 sec. 


c048 EH 1:15,1,:59,:19,-1.59 * 19 Pas de 1 de 13 5682 
2919 SOUND 1,:125.1998,1,1 ? Pendant 19 secondes 


Pour obtenir l'enveloppe ci-dessous, nous écrivons : 


2094 ENY 1, 5,:2,29, 1,9,2969, 19,-1.20 
2914 SOUHD 1,125,599,1;,1 





10 secondes 


volume 


temps 
? SeC. 2? SEC. 1 sec. j 


ENT numéro, nombre pas, pas période, temps, nombre pas, pas période, 
EE mn mp attente pe = 


Cette instruction permet de faire varier la fréquence de l'instruction SOUND pendant 
son exécution. 


Dans l'exemple ci-dessous, la période de 125 au départ devient : 125+100*2 


2OfE ENT 1,194,2,3 " 199 Pas de 2 Pendant 35/189 sec 
2914 SOUND 1.125,399,15,0,1 


Dans l'exemple ci-dessous, la période augmente pendant 50*3 centièmes de seconde 
et diminue pendant 50*3 centième de secondes. 


2998 ENT 1, 59,2,3, 59, -2,3 
2618 SOUND 1, 25, 304, 15.9: 1 * 3 sec 


Exemples divers : 
O Génère des sons aléatoires. 


15 SOUHD 1,RHDC 1 24404,3,15 
26 GOTO 15 


O Tir de laser. 


Mean laser 

19 FOR P=1 TO 19ÿ STEF 5 
249 SOUND 1,P,1 

39 HEST P 


D Sirène de pompier. 


1 Pompier 
26 SOUND 1,298,54 

36 SOUNC 1.195,50 

46 GOTOQ 25 


D En appuyant simultanément sur A, S et D, la note “DO” est jouée avec 3 octaves 
différentes. 


: JOUS sur 3 Canaux une note sur % QCtaves avec touches À,5,D 
SD ‘ aFPuyer sur À seul,S seul,D 2e l 

49 * Puis À et S simultanement 

98 

S9 nt=472 * note 

‘à d=5 * dures 

39 ‘ 


59 IF INKEYC692=20 THEH SOUHD 1,nt,c 
109 IF INKEYC6G)=9 THEN SOUND 2,nt/2, d 
119 IF IHÉEYC612=9 THEN SOUND 4, nt/4,d 
129 GÜOTO 34 


SQ (canal) oo  — 


Donne l'état d'un canal. 
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Bits 0,1,2 : nombre de places libres 
. Synchronisation A 

. Synchronisation B 

. Synchronisation C 

: attente 

: canal occupé 


NO O1 BR Co 


D Ci-dessous, 132 représente la somme de 128 (canal occupé) et de 4 (nombre de 
places libres). 


129: 108 1 seconde 


Fe nm mn freduence 1965 sur 1 Puis frequence SA% sur 2 
18 SOUND 1.:125,1926 " 1 seconde 

29 IF LS 12 AND 1283€>128 THEH SOUHDO 2, 254, 148: END 

35 GOTS 29 


ON SQ (canal) GOSUB n° ligne LE Le | 


Provoque un branchement au numéro de ligne spécifié lorsqu'il y a une place libre dans 
le canal spécifié. 


15 SOUHD 1,125,20û 
24 SOUNC 1,256,1ÿ8 

21 SOUHD 1,596, 199 

22 SOUHC 1,199%, 100 

23 SOUHC 1,2996,1aû 

24 SOUHDC 1,489, 19 

59 OH 5 12 GOSUB 56 

49 BOT dr 

FT mm mm mn om 

A PRIHT "IL y a une Plate libre Pour le canal ge" 
54 FETURH 


* 


T3 CA 


RELEASE n° canal LE 


Libère un canal en attente. 


RELEASE 2 —> 2 
RELEASE 3 — 1+2 


Exemples divers : 
D Ci-dessous, des notes sont choisies au hasard. 


1Q MUSIQUE ALEATOIRE 
29 DATA 4186, do 


59 DATA 4698,re 
+9 CATA 35274, mi 
29 DATA 5587,fa 
69 CATA 6271,s01 
5 DATA 78949, 1a 
29 DATA 7982,s1 


166 FÜR n=l TO 7 
119 READ fin).x$ 


128 HEXT n 

139 “mme 

144 nEt=IMNTÉRANDE 1 3#7 2+1 " note 
199 Aur=INT CRHDK 1 YK69 +19 " dures 
169 ocEt=INTÉ RNDE 1 243 3+1 " octave 
179 ? 


159 SOUHD 1,125949/f6 nt 2#d4/o0ct., dur 
135 GOTI 149 


Les fréquences données dans le programme sont celles du niveau d'octave 4. Or 
trouvera en annexe un tableau complet des fréquences pour les niveaux d'octaves 
allant de —1 à 4. 


D Le programme ci-dessous joue une note frappée au clavier. À chaque touche cor- 
respond une note avec un niveau d'octave. La note jouée est de durée fixe. Nous 
avons augmenté le délai de répétition pour les touches afin d'éviter qu'une note ne 
soit jouée deux fois de suite malencontreusement. 


16 Émmasenmeg ; 
18 Loc 3:perrnr 2QUE 1 NOTE A LA FOIS DE DUREE FIXE 


39 SPEED KEY 39,29 

48 LOCATE 1,28:PRINT "4 uw e pr 
55 LOCATE 1,21:PRINT "a 5 d $f 
69 “emmener Octave 4 
F9 DIM fé21),cl# 21) 

89 DATA 4186,do,0, 4698,re,W, S274,mi,E 
99 CATA 5587,f3,R, 6871,201,T, f848, 13% 


1 OCTAYE 4" 


SE 
9 M  Jj OCTAYE 3" 


5. osent Lu octave 3 
129 DATA 2993,do,fA, 2349,re,S, 2637,mi,D 


139 DATA 2733,f3,F,;, 3133:501:G: 39328; 14,:H 
148 DATA 3951:s<i,.) 


159 CH=IHKEYS:IF c$é="" THEH 189 

158 CS=UPPERSC CG } 

299 FOR i=i TO i4 

219 IF C$=cI$ I) THEN SOUMD 1,f<i),15 
224 HEXT i 

239 GOTQ 169 


Le temps de recherche de la note correspondant à la touche frappée peut être supprime 
en utilisant les valeurs ASCII des touches pour déterminer l'adresse de rangement des 
notes dans la table f(). 
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7e FOR n=1 TO 14:READ F,x$,c$:fF ASC cHS))=125006/F:NEXT n 
169 C&=INKEYS$S:IF c$="" THEN 1859 

196 C$S=UPPERS&K CS 

219 c=ASCC CS): SOUND 1,f(c),15 

23539 GOTO 12ÿ 


9 Le programme ci-dessous permet de jouer trois notes de durée variable simultané- 
ment. Lorsque l'opérateur appuie sur une touche de façon permanente, toutes les 
commandes SOUND pour une touche pendant la durée d'une note doivent être 
envoyées vers le même canal. Un simple test de la disponibilité des canaux avec 
SQ n'est donc pas suffisant ; une même note serait envoyée sur plusieurs canaux. 


a ss JOUE 3 NOTES SIMULTANEMENT sur canal 1 
6 MODE 2:DEF INT à sons : LS 


28 LOCATE 1,29: PRINT "4 ww ee nr + y vu octave 4" 
D 1%) LOCATE 1,21:PRINT "a «= d ff 9 h Jj octave 3" 
JD = mm mm octave 4 
68 DIM fé21);,cl<213,c(21) 
79 DATA 4186,4d0,67, 4698,re,59, S274,mi,58 
89 DATA 5587,f3,59, 6271,501,51,; 7049, 1a,43 
39 DATA 7992,s]1, 42 
7: éomncmmmnne ner octave 3 
119 CATA 2493, do0,69, 2543,re,60, 2637,;mi,6l 
129 CATA 2793,:fa:93;: 3135,:201,:52, 3529, 13, 44 
139 DATA 3951,;si,45 
149 ‘ 
ce FOR ni TO 14:READ fln):x8%, cl n):fénizi25099/FC nd: NEXT n 
179 FÜR i=i T9 14 
159 IF IHKEYCClCi)22=9 THEN 238 
194 IF cci<29 THEN clibé cé i2)=9:e i =9 
299 HEXT ji 
219 GOTO i79 
224 ‘ 
259 IF ci2429 THEN cac i ): SOUND ec, fCi),15:GOT0 298 
244 IF ClibC12=9 THEN ci)=l:clité 1 3=1: SOUND 1,f4i23,15:GOTO0 290 
259 IF clibé2:=9 THEN cid=2:clib(2i=1:SOUND 2, fli),15:GOT0 298 
299 IF clibi33=9 THEN cCi=d:clib(32=1i:SOUND 4,f(i,15:GOT0 298 
c64 GOT 244 


| programme 


117 


L'HORLOGE | { 


s TIME nm REMAIN 
nm AFTER # DI 
# EVERY m EI 


I 2 
Fournit le temps écoulé depuis la mise sous tension en 1/300 seconde. 
L'exemple ci-dessous affiche l'heure. 


19 ‘mm hor 103 
25 CLS 

38 h=TIME 

49 LOCATE 1,22 

59 PRINT CTIME-h:/25% 
69 GÜTO 4ÿ 


L'exécution différée ou périodique de sous-programmes se programme avec les ins- 
tructions AFTER (APRES) et EVERY (CHAQUE). C'est BASIC qui gère les chrono- 
mètres associés aux sous-programmes. 


AFTER temps, n° chrono GOSUB n° ligne 





Provoque l'exécution d'un sous-programme spécifié après le temps spécifié en 
1/50° de seconde. Ci-dessous le message “COUCOU” est affiché après 2 secondes. 


Le numéro de chrono spécifié doit être compris entre 0 et 3. En cas de conflit d'exé- 
cution, c'est le chrono 3 le plus prioritaire. 


ef ER el de DS El 


D mme AFTER 

25 MOCE 1 

59 AFTER 149,8 GOSUE 39 ° aPres 2 3econdes 
44 

29 LOCATE 1,2:PRIMT i:i=i+1:GOT0 59 ‘ boucle d'attente 
69 END 

DE rmnesmmmsmmmesmagassses 

39 LOCATE 1,2£:PRINT "coucou" 

199 RETUFH 


EVERY temps, n° chrono, GOSUB n° ligne 





Provoque l'exécution périodique du sous-programme spécifié. Ci-dessous, l'heure es 
affichée toutes les secondes. 


19 ‘mms EVERY 

cf MODE 1 

39 hA=TIME * heure depart 

“ EVERY 19:9 GOSUB 3ÿ " toutes les secondes 
69 GOTO 68 " boucle d'attente 

fÿ END 

QD ee mm affichage Heure 


9 LOCATE 1,22:PRINT INTÉCTIME-hd 349 » 
193 RETURN 


Ci-dessous, un danseur est représenté dans quatre positions. 


19 MODE 1 

£H EVERY 69,9 COSUE 148% 7 3 secondes horloge 9 
39 EVERY 299,1 GOSUE 115 * 169 secondes horloze 1 
45 ‘ 

29 FÜR c=z2d43 TO 751 * & Positions 

54 LOCATE 29,15:PRINT CHR$cc) 

T8 SOUL 2, INTIRNDE# 198 +559, 26 


Oo MEXAT C 

395 GOTO 55 

LU mm ru mu un mu me Chrome 1 

119 LOCATE 13,15:PRINT "smurf dance" 
12H RETURH 

159 mm ou mn — Chrono ÿ 


149 LOCATE 13,15:FRINT "SMURF DANCE" 
159 RETURN 


Toutes les 3 secondes, un message est affiché en majuscules. Toutes les 10 secondes 
le même message est affiché en minuscules. 


REMAIN (chrono) 





Annule le chronomètre spécifié et donne le temps qui restait. 
PRINT REMAIN(O) 


L'HORLOGE | 119 


DI 





Annule les interruptions jusqu'à ce que l'instruction “El” soit exécutée. 


Ceci permet de “protéger” une partie de programme contre les interruptions intempes- 
iives qui provoqueraient par exemple une modification de la position du curseur gra- 
phique si le sous-programme d'interruption exécuté n'a pas prévu de restituer le curseur 
graphique dans l'état où il l'avait trouvé. 


Si le programme principal et un sous-programme d'interruption utilisent une ressource 
commune (imprimante par exemple), DI permet d'éviter des conflits. 


EI 





Autorise les interruptions annulées par DI. 
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LES FICHIERS 1? 
SÉQUENTIELS 


# OPENOUT “ LINE INPUT # 9 
# OPENIN # CLOSEOUT 

n PRINT #9 # CLOSEIN 

a INPUT # 9 # LINE INPUT # 9 
# EOF = WRITE # 9 


Les instructions d'écriture et de lecture des fichiers séquentiels sur cassette sont ana- 
logues à celles de l'édition et de la lecture au clavier (PRINT et INPUT). Les informa- 
tions transitent par une. mémoire tampon. 


OPENOUT nom-fichier 
OPENIN nom-fichier 
Un fichier est ouvert en écriture par OPENOUT et en lecture par OPENIN. 


PRINT # 9, variable 
INPUT # 9, variable 





PRINT # 9 écrit la variable spécifiée sur cassette. 


Le programme ci-dessous écrit les deux variables NOMS$ et TPHS sur cassette en les 
séparant par des retour-chariot. 


36 OPFENOUT "FICH" 

40 ‘ 

99 IMHPUT "Hom Cou FIN) “;:nomg 

69 IF nom$="FIN" THEN CLOSEOUT:GOTO 126 
79 INPUT "Telephone ";:tPhS& 

99 ‘’ 

99 PRINT #9, nom$ 

199 PRINT #9,tPhS& 

119 GOTO 59 


ee FE USE et À BLNRNI L INT REZ 


Pour lire les enregistrements, on écrit : 


188 INPUT #3,nom$ 
195 INPUT #9, tPhS& 


On peut également écrire : INPUT # 9,NOMS. TPHS. 


ATTENTION : 


BG PRINT #9, nom$ 
3 PRIH 


1 
2 T #93, tPh# 


ne doit pas être remplacé par : PRINT # 9, NOMS, TPHS : les valeurs seraient seule- 
ment séparées par des espaces et seraient considérées à la lecture comme une seule 


valeur. 
ER 
MARTIN 
C 






955.19.01 


DUPONT 


Avec INPUT # 9, une virgule dans une chaîne est considérée comme séparateur. Par 
conséquent, les chaînes comportant des virgules doivent être écrites par WRITE # 9 
ou être lues par INPUT # 9 qui ne considère comme séparateur que le retour-chariot. 





EOF 





EOF teste la fin d’un fichier en lecture. Cette instruction doit être programmée avant la 
lecture par INPUT £# 9, 


1e IF EOF=-1 THEN CLOSEIH:END 
189 INPUT #9, nom$ 


CLOSEOUT 
CLOSEIN ——————————————.———.….…. _— = 


CLOSEOUT provoque le transfert sur cassette de la mémoire tampon. 


CLOSEIN ferme un fichier en lecture. 


LINE INPUT # 9, chaîne —————__———— 


Lit une chaîne de caractères dans un fichier en ne considérant comme séparateur que 
le retour-chariot (code 13). La virgule rest pas considérée comme séparateur. 
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WRITE # 9, variablel, variable2 


Ecrit les valeurs en les séparant par des virgules. Les chaînes Sont placées entre 
guillemets. 


193 rue$="11,rue NOBEL'":mt=164553 
118 WURITE #93,rue$, mt 


“11,rue NOBEL”, 164 553 


Les chaînes comportant des virgules peuvent ainsi être lues par INPUT # 9. 


O0 Le programme ci-dessous crée un annuaire téléphonique et le lit. 


19 ‘sms fichier 
EM pe ét ut ecriture 
36 OPEHOUT "FICH" 

4g * 


59 INPUT "Hom ou FIMi "inom$ 

68 IF nom$="FIN"" THEN CLOSEOUT:G0TO 15 
F3 INPUT "TelePhone ";5tPh$ 

26 * 

98 PRINT #3, nom 

139 PRIMT #9,tPh$& 

118 GOTO 59 

129 * ---——mmmmmemme lecture 

139 PRINT "FRembobinez" 

148 OFEHIN "FICH" 

153 * 

163 IF E0F=-1 THEN CLOSEIH:ENC * fin de fichier? 
179 ‘ 

188 INPUT #3, nom 

13% IHPUT #3, tPHS$ 

299 PRINT nomS$, tPhS$ 

214 GOTO 159 


Ready 

run 

Nom (ou FIN) 7 DUPONT 
Téléphone 7 044-222-6353 
Nom (ou FIN) 7? MARTIN 
Téléphone ? 999-88-77 
NOM (ou FIN) 7? FIN 

Press REC and PLAY then any key : 
Savina FICH block 1 
Rembobinez 

Fress FLAY then any key : 
Loading FICH block 1 
DUPONT 044-272-8685 
MARTIN 999-88-77 


1 Le programme ci-dessous sauvegarde une table sur cassette. 


1 = SAUVEGARDE D‘UH £ 
29 CIM A2) és... 


34 OPENQUT "TE" 


5 FOR I=1 TO 299 
EG AIj=l 

75 PRINT #3, 1) 
S% HEXT 1 


+ 
C 
Sy 

| 
Î 
| 
| 
Î 
Î 
| 
Î 
[ 
| 
{ 
| 
l 
Î 
| 
| 
( 
| 
| 
| 
rt 
il 


Cture de 1a table 
1i4 OPFEHIH "TE" 


124 FÜR Izi TO 29@ 
159  INPUT#3,fACI 2 
145 PRINT ai) 

154 HEXT I 

164 CLOSEIN 


Un programme sauvegardé en ASCII peut être lu comme un fichier séquentiel. 
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GRAPHISMES 


Tracé d'un dessin par segments de droites 
Dessinateur 

Tracé d'un dessin défini en DATA 
Géographie 

Trace d'un dessin en relatif 

Rotation d'une figure 

Squash 

Tracé de courbe 

Histogramme 

Histogramme 3D 


CO0O00OC0OD0OC0EDU 


GESTION 


Q Saisie d'écran 

n Fichier d'adresses 

0 Gestion de fichier automatique 
© Bibliothèque 
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GRAPHISMES 


TRACÉ D’UN DESSIN PAR SEGMENTS DE DROITES ET 
DIGITALISATION D'UN DESSIN Ho 


Le programme ci-dessous permet de déplacer un curseur à l'aide de 4 flèches —< 7 | 
et de tracer des droites entre ces points. 


Q Pour “valider” le premier point, nous appuyons sur “V”. | 
D Pour tracer une droite entre le point courant et le point valide précédent, nous 
appuyons sur “D”, 





2° point 
D 


V pour valider premier point 
pour tracer 


Le programme permet également de “digitaliser” un dessin : 


D Nous collons sur l'écran une feuille transparente sur laquelle a été décalquée la 
carte de France par exemple. 

D Nous déplaçons le curseur sur le périmètre de la figure et périodiquement, nous 
“validons” les points. Les coordonnées X et YŸ des points s'affichent alors à l'écran. 


LE mme ce TRACE PAR SEGMENTS DE DROITES 
2 ce=l:cf=ÿ 

38 

44 INK 9,26:IHNK 1,GD:FAPFER G:PEN 1 

29 LUCATÉE 1,2S:PRINT "PREMIER POINT:fleches Puis AY ER 
69 LOCATÉE 1,241:PRINT "AUTRES POINTS: fleches puis di” sde 
TB xX=268 :3=204 





DS meme TU CURSEUR CLIGHOTANT NET à 
36 L=TEST X,y) Carte de France 
155 ? 


119 CH=INKEYS: IF cit" THEH 168 
129 PLOT x,y,ce 

158 PFLOT K:%:Cf 

14 COTD 114 

158 ‘ 

168 PLOT x,y,t 

179 Cc=ASCÉ ES) 

175 cé=UPPERSC cS à 

189 IF C=242 THEN x=x-27 
199 IF C=243 THEN K=4427 
c64 IF C=249 THEN ‘Y=Y+2 
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219 IF C=241 THEN Y=Y7-2 

229 LOCATE 1,17:PRINT c$ 

238 IF C$=""" THEN PLOT X,Y, CE: GOSUE 270: XA=%4: YA" 

248 IF C$="D" THEN FLOT %A,YA,CE:GOSUB 279:DRAN %,'7, CE: YA": 


HAE 
258 GOTO 98 


260? mm AFFICHAGE #4: Y 
274 LOCATE 1,14:PRINT X;Y:RETURN 


DESSINATEUR 





Ce programme “dessinateur” permet de représenter des droites, des rectangles pleins, 
des cercles pleins ainsi que des triangles pleins. 


Pour dessiner une droite par exemple, il faut appuyer sur “V” pour valider le premier 
point puis déplacer le curseur avec les flèches (—, <-, |, Î ) et appuyer sur “D” pour 
obtenir le tracé entre les deux points. 


D 
3° point 


V 
v” point 7e point 


Un cercle se représente en appuyant sur “V” pour définir le centre, puis en déplaçant 
le curseur jusqu'à un point de la circonférence et en appuyant sur “C” pour le valider. 
Le tracé du cercle est alors effectué. 





C pour la circonférence 


V 


pour le centre 
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Le triangle plein s'obtient en appuyant sur “V” pour définir les deux premiers sommets 
puis sur “Y”" pour le troisième sommet. 


V 
2° sommet 


YŸ 
1“ sommet 3° sommet 


La droite YV (1* sommet) pivote pour “remplir” le triangle. Ce triangle plein permet d< 
“remplir” un certain nombre de figures, comme le montre l'exemple du cube, et rerr- 
place ainsi partiellement l'instruction “PAINT” qui existe sur d’autres matériels (MSX 
eg.). 


En utilisant la couleur de fond “F” et “R”, il est possible d'effacer des parties coloriées 


Attention, le curseur disparaît sur une zone non coloriée pour le faire apparaître 
frappez 1 ; 


Pour tracer des figures discontinues, utiliser “V”. 
Pour sauvegarder l'écran graphique, faire : 

SAVE "DES”,B,&C000,&4000 
LOAD “DES” permet de lire le dessin sauvegardé. 


Ces instructions peuvent être insérées dans le programme : 


395 IF C$ = “S” THEN SAVE... 
356 IF C$ = “L” THEN LOAD.. 





Le Signe “A” représente la flèche “1”. 
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QD eme em DESSINATEUR 

29 ce=il:cf=f * coul ecriture et fond 
29 INK 9,:26:IHK 1:B:PAFER Ccf:PEN ce * fond blanc/encre noire 
49 SFEED KEY 19,3 ? reéPetition raPide 

5g MODE 1 


69 LOCATE 1,Z2S:PRINT "PREMIER FOINT:flecheszs Puis ’wy°" 

79 LOCATE 1,21:PRIMT "2EME POINT: fleches puis:" 

29 LOCATE 3,:22:PRIHT "D:droite Rirectan3le" 

4G LOCATE 3,223:PRINT "C:cercle fitrianale(tv Pour 2 Points)" 
199 LOCATE 3,24:PRIMT "COULEUR: 1,2,2 F:FOHC < GOMMER 2" 

119 LOCATE 3,25:PRINT "R:annulation derniere droite" 


129 xa=290:y3=309 ‘ Point Precedent 
139 xb=44:9b=53:x=x3+2f:u=ya 

4 oo mt mo CURSEUR CLIGNOTANT 

158 L=TESTÉ x, y) 

168 


179 CS=INKEYS:IF c$é<>"" THEH 219 

158 PLÜT %x,:u,ce:PLOT %,:y,cf 

199 GOTO 179 

268 

219 PLOT xout 

224 c=ASCX c$) 

236 IF C=2242 THEN IF x22 THEN KX=-2:COTO 159 

248 IF C=243 THEM IF x<638 THEN #X=#4+2:COT0 159 

259 IF C=£49 THEM IF 4<398 THEN Y=#+2:COTO 158 

269 IF C=241 THEN IF y>72 THEN Y=Y-2:COTO 154 

279 cH=UPPERSC CH): LOCATE 1,17:FPRINT c$ 

280 IF C$=""" THEN FLOT x:y:ce:xbh=xaiub=ya:xasx:yazy 
299 IF C$="C" THEN PLOT xa:93,ce:DRAU x0u,ce:xb=xa:gh=uatyaau: 


388 IF C$="C" THEN GOSUE 43% 

319 IF c$="R" THEN COSUB 384:xa3zx:uyazy 

328 IF c$=""" THEN GCOSUE S19:xbh=xa:ub=yatxgex:ysaz=y 
339 IF c$="A" THEN PLOT xb,9b:DRAM xa,43,cf:x=xbiyzyhisazwbiun 
=yb 

349 IF C$="F" THEH CE=9 

359 IF C$>="06" AND C$<="9" THEH CE=YAL£I CS) 

269 GOTO 159 

CEA SE ES rectangle Plein 

389 FOR Yy1=43 TO y STEP SGNCy-y3) 

336 PLOT x3.:y1,ce:DRAH x:y1,ce 

498 MEXT 1 

418 RETURH 

EQ me Cercle Plein 

439 r=SOREC ax 1024 gag 20 :r2=r"2 

445 FOR dx=-r TO r 

459 du=SOR(r2-< de 0 

469 PLÛT xa+dx,ya+du,ce:DRAN xatdx,ya-du,ce 

479 MEXT dx 

489 RETURH 

499 oo em trianale Plein 

599 * valider 2 Points avec ‘V' Puis un troisieme avec ‘Y?° 
919 A=SQRE EC gb-ua 124 bag 2722 

524 IF d=9 THEN RETURH 

539 cx=fxa-xbi/dicaztsa-uhb5/d 

248 FÜR dd=g TO d STEP 6.5 

299 x3S=xb+dd#ecx:yG=ub+ddkcy 

J67 PLOT x,y,ce:DRAU x3,433,ce 

Sr9 NEXT dd 

2599 RETURH 


LIU 1 DIS MIDAN L'UIVEUD L INTRA 


TRACÉ DE DESSIN DÉFINI EN DATA 





Le programme ci-dessous trace un figure en reliant entre eux des points définis en 
DATA. 


LD mere me ma nas er einen meme Carte de france 
4 MOCE Z:IME G,1:INK 1,24:PAPER G:PEH 1 
59 DATA 276,278 

49 CATA.323,342, 398:318; 300,289 
99 DATA 359,268; éd, 2457, SÉ64, 274 
55 DATA 372,234; 315: c48;, 296, 248 
F9 CATAH 572:226, 394,£Gd, 384, 196 
69 DATA 336.183, 496, 186, AGE, 174 
99 DATA 384,166, 366,156, 252,166 
199 DATA 332,179, 519,164, 399,159 
119 CATA 596,136, 399,132, 236,142 
129 DATA 196,156, 295,198, 212,212 
159 CATA 296,236, 152,259, 174,272 
149 DATA 164,282, 146,294, 122,299 
154 DATA 122,266, 163:319, 192, 2%4 
169 DATA 198,392, 186,314, 184, 334 
1°9 DATA 205,354, Znd4,329, C2, 322 
159 CATA 234,32, 239:339, L42,338 
199 DATA 256,346, L62,:362, 276:37A 
£M4 DATA 993,333 

218 

re. REARD x#3,9a4:PLÜOT xa3,ua 

249 READ x: 

254 IF *x=999 THEN END 

268 ‘ 

279 DFAU x:14,1 

265 GOTD 24g 


Pour tracer une figure discontinue, nous spécifions une coordonnée fictive égale à 0.0 


59 MODE 1 

64 CATA 199,194 

‘9 DATA 155,149, 159,179 

89 CATA 9,4 

on CATA 259,294 

199 DATA 256,204, 259,274% 

119 DATA 999,993 

128 * 

139 READ x4,ya ? Premier Point 
144 PLOT x3,4a 

154 ’ 

169 RERD %,1 

179 IF x=993 THEN END 

155 IF x=H AND 5=9 THEN READ xa,y2:PLOT xa,Y4a:GOT0O 169 
139 DRAU x, 

299 GOTO 169 
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GÉOGRAPHIE 





Nous proposons deux programmes de géographie. 


Q Le premier affiche la position d'une ville et demande le nom de la ville. 





Quelle ville ? PARIS 7 
OK 





D Le second demande de situer la position d'une ville. L'élève doit déplacer le curseur 
à l'aide des quatre flèches et valider la position avec “V”. Le programme calcule 
l'écart entre la position réelle et la position choisie. 


Position exacte 


DY 


Position choisie 
DX 


PARIS 7 DISTANCE = SOR(DX*DX+DY*DY) 





Pour ce second programme, utiliser les lignes 10 à 400 du premier programme et 
ajouter les lignes 480 à 830 de la version 2. 


19 ee mn mn INTERROGATION GEOGRAPHIE HO 1 
29 MOCE 1 

39 INK B,4:IHK 1,24:PAPER G:PEM 1 

49 DIM XV6391, 438), Sc 38) 

59 DATH 275,379 

NH DATA 325,242, 398, 318; 354,288 

F9 DATA 564,266, 364,249, 364, 234 

39 DATA 372,234, 316, 244), 326, 248 

35 DATA 379,226, 384,2ÿ4, 354, 196 

195 DATA 396,188, 496:126, 496,174 

119 DATA 384,166, 366,156, 352,166 

129 DATA 332,179, 318,164, 398,159 

135 DATA 326,136, 399,132, 236,148 

149 DATA 196,156, 298,188, 212,218 

158 DATA 296,236, 198,259, 174,272 

1668 DATA 164,222, 145,294, 132,299 

179 DATA 132,396, 168,316, 182, 394 

184 DATA 198,392, 186,314, 184,334 

199 DATA 299,334, 24,328, 222, 322 — 


2.7 de 


RDÉIAN LAIVAD L ISRAEL 


254 
219 
226 


DATA 
DATA 
DATA 


238 ‘ 


244 
258 
Z64 
278 
259 
299 
398 
319 
32h 
330 
349 
334 
368 
374 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
CATA 
DATA 


389 * 


339 


READ 


499 * 


419 
4295 
434 
44f 
459 
465 
479 
482 
42% 
= 121% 
Si 
525 
539 
54 
529 
569 


57 
580 
San 
560 
61 


499 


495 
546 


524 
mie L5 
5349 
598 
2360 
“ré 
259 
56 
693 
616 


READ 
CRAU 
GOTU 


READ 
GOTO 


+ 


ss 


234,322; 
296, 345, 
999, 999 


239, 330, 
262, 368), 


216, 392, FARIS 

236 348; LILLE 
314, 314,REIMS 
242,:324,LE HAYRE 
136, 325 , CHERBOURG 
142,362, BREST 
186; 289, RENHES 
186 , 264, HRNTES 
239, 254, POITIERS 
214, 286 , EORDEAUX 
3:36; 214, L'YOH 

334, 159, HYIGHOM 
320: 168: MARSEILLE 
999, 299, 2222 


“3:93:PLOT #3:y43:1 
X:Y:1IF x=993 THEN 459 


“341 
413 


242, 338 
276: 319 


Quelle ville 7 


#1: w%:IF x=999 THEH 49% 
sn À eu ny JS: gun De : y ÉC ny Dev 


459 


= IHNTÉ RNDCE À ns +1 
IF v=3y THEN 439 


a'YZv 
FLOT 


LOCATE 5,29: INPUT 


PATIO DPE LL DFE 
"Quelle 


YS=UPPERSE 8 : 
LOCATE 5.21 


IF 664, 
FÜR tP=i TO 


PLOT 


=$ THEH PRINT "OK 


COGG:HEAT tP 
ÉLIRE L'URTD EE 


LOCATE 5,21:PRINT SPCC39) 
LOCATE 5:2G:PFRINT SPCC3ÿ) 


GOT 


4 


439 


—- 2 0 


? ajouter les 


instructions 


x=e160:y=362 
SPEED KEY 16,2 
519 ‘ 
Y=INTÉ RHDE 1 Arr 2+1 

IF v=3y THEN S28 ELSE av=, 
LOCATE D: €D:PRINT "OU EST SITUE "$C V2 
O0 000 0 0 nd Sestion curseur 
LOCATE J:'e£: PRINT "Fleches puis °°" 


L=TESTÉ x 
CH=INKEYS:IF cé" 


13) 
THEM 


PLOT x,:%#, 1 


* ille au hasard 


Ville ";v% 


" ELSE PRINT "NOH ,C'est "ivééuy 


16-474 du ProSramme Frecedent 


f ville au hasard 


654 


TRACÉ D'UN DESSIN EN RELATIF 


Une figure définie en coordonnées relatives (chaque point est d 


629 
638 
549 
659 
664 
679 
58 
638 
75a 
718 
723 
730 
74û 
750 
768 
7? 

78ÿ 
734 
290 
319 
329 
234 
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PLOT x,s,68 
GOTO 649 


PLOT #K343T€ 


c=ASEC< c$ 2 

IF c=242 THEN x=x-2 
IF Cc<243 THEN x=x+2 
IF c=249 THEN 3=3+2 
IF c=241 THEN y=y-2 


IF Cé="y" OR Cé="y" THEH 764 
a ee nn mn Calcul distance 

= 47 Due: d'u su y y Dig 

d=SGR< dxkdx+du#au à 

LOCATE S,Z23:PRINT "Vous etes 2:":;:d#5 "Km"; SPCC 10 ÿ 
PLOT xwy6 y 2, 4€ uv), 1: PLOT KDE Ju y), 1 

FOR tP=1 TO 2GGSG:NEXT tp 

LOCATE 5,2M:PRINT SPC{34) 

PLOT xu uw y), G:PLOT xwCwy2D42 ,yyCw), 9 

GOTO 52ÿ 


précédent) peut être représentée facilement avec une échelle. 


19 
26 
38 
4 
24 
55 


MODE 1 
IHK 9: 


ech=4, 


nn nt te CRE M RS cmt AUS but peut + ms cm un mnt 





éfini par rapport au 


x3=298 : 3a=214 


F8 DATA 52,-28, 
59 CATA G,-26, 
CATA G:4, 


35 
1611 
114 
129 
154 
1 +1 
1:53 
164 
ra 


1 ++ Et LD [Ru 
Et 5 Mi 


r' 
Lux 


1 


à Pa Po La Pa os a 


DATA 
DATA 
CATA 
DATA 
DATA 
DATA 
DATA 
CATH 
CATA 
DATA 
DATA 
DATA 
DATA 


DATA : 
4 FLOT 


l:IMK 1,274 
9 * echelle 
* ler Point 
24, —18, -35 
—16, 29; 1, 5 
+16, 15.5 
—G—id: Gr —EZ 9-8 
12,8: 19,-2, H,-12 
LT) 9) S,—1ÿ; 14.18 
Ed: —14,-6, —i,-14 
2-14, 5, —4, éd ; 1E 
+9, 5: 12:32; 4, 34 
6:18, —-18:14, -14,22 
—14,15, -15,53, -i4,9 
A, 1%; 36: + 14, 5 
15,2 12,12 2, 29 
16,4; 4, 5 13, 6 
12,5, 4,5%, 4: 5 
14:55, ë: 15 14,5 
339,395 
#4 : 44 


MEAD dx,du:IF dx=999 THEH EHD 


DRAURF echékdsx,ech£&du, 1 


GOTO 


2rH 


134 | BASIC AMSTRAD 


Le programme ci-dessous convertit les coordonnées absolues en coordonnées relati- 


ves. 


15 
Es 
54 
41 
15) 


ne té te CRUE EN AU té UE Cdt ppt “mt pen pot “ms duunt tnt te mms ut nu pt 


37, 315: 
364, 249: 


CATA : 316:€49;, 


Conversion 3bs0lu-->relatif 


359,294 
364, 234 
386, 248 


En * sui dé FRANCE 

F4 * 

135 DATA 939,933 
r nl 


ch RERD xa3,43 * Premier Point 
Fu 


4 
e " imPrimante 


Cf 

[AA 

LE 5.2 
C0 GB 1 


(A 
| 
Si SO Po Po Là PO Mi 


b 


ROTATION D’UNE FIGURE 





Ce programme représente une figure définie dans la position demandée. 


19 
MOCE 1 

nP=r " 
DATA 269,255 
DATA-259, 299 

DATA 254,129 

DATA 229,124 

DATA 225,169 

DATA 295,168 

DATA 254,258 


Smash rm, AL ON d'une Figure 


nowbre de Points 


FOR 1=i TO nP'READ xCi2,YCi):MEXAT à 


xD=%x< 1 ):5B=yc 1) / centre de rotation 
LOCATE 1,2:INPUT "Quel anSle(degre) ";3 
3=3#2*P1/-569 

3=SIH6 a 2: c:COS( 32 

FÜR P=1 TO vP 

DK=xÉP 2-40: du=yép y 4 

x1CP DsxG+dxkc+dy#s 

YJ1CP >= 0+dufc-dx#s 


18 


244 
219 
226 
236 
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249 NEXT P 

259 ce=i:COSUE 28% 

268 GOTO 178 

ED oo oo on mon £Pam trace 
238 PLOT x1l(1),41613;:ce 

299 FOR P=2 TO "Pp 

399 DRAH x16PD;y1€Pp },ce 

319 HEXT PE 

328 RETURH 


Quel angle(degre) ? xBreakx 
Break in 170 
Ready 


NN 


SQUASH 





Vous devez faire rebondir une balle à l’aide d'une raquette que vous déplacez avec les 
deux flèches — et «— 


Nous avons utilisé la fonction INKEY(n° touche) de façon à obtenir un déplacement 
rapide de la raquette. Avec INKEYS$, le délai de répétition des touches devrait être 
modifié par SPEED KEY. 





<—Y2 


Fieches yvourx raquette 


136 | BASIC AMSTRAD 


19 SAUASH 

2ÿ CLS : INPUT "MHiveau <1,:2,33 "5 
JD." emmmmmmme dessin terrain 

4g MODE 1 


59 x2=18+nv%#e 

6Q x1=2:y1=2:4y2=22 

79 CLS 

59 LOCATE 1,24:PRINT "Fleches Pour raduette" 

99 FOR x=xi TO xX2:'LOCATE %x,Y1:PRINT CHR$C1d3S):MEAT x 
149 FOR y=y91 TO y2-1:LOCATE X1:3:PRINT CHRS$&( 1433: LOCATE x2,y:P 
RINT. CHRS$E 143): HEXT 3 

119 

125 b=0 * rebonds 

129 ra$=CHRSC 32 DH+CHREE 143 D4CHRGC 143 J+CHREC 143 D+CHRSL 32 3 
143 dx=i:dyz=-1 

159 sxb=5+INTÉ RHDE 1 245 D: yb=18 ? balle 


168 xr=19:ur=1y2 * raquette 

179 LOCATE xkr=-1l:9r: PRINT r4$ 

159 7 me unes ue me meme mn ou ee eo ont me ne me nm deplacement balle 

199 LOCATE %xb:4h:PRIHT CHR#S 32) ‘ effacement balle 
296 xb=xb+dx:1b=4b+cy ! nouvelle Position 


219 IF sb=y1+3 THEN Jb=sb+INT(RNDEZ 2%dy 

224 LOCATE xb:3b:PRINT CHR$éC 231 2 

238 IF xb>=xe-1 THEN dx=-dx * rebonds 

24ÿ IF sbh<y1+2 THEN dy=-dy 

25 IF #béx1+2 THEN dx=-dx 

2602 

et IF “brur-2 AMD xbéxr+é AND Jbègr-2 THEH dy=-dy:rberb+1i 
29 

294 IF Jb>=YR THEN LOCATE 38,223:PRINT rh; "POINTS'":GC0OTO 389 
ZOO ‘== mm ae ces eme cena me mme mn ce dep laicement raquette 

319 FOR EtP=1 TO 1Y:HEXT +&P 

326 ‘’ 

334 IF INKEY(12=9 THEN IF xr<x2-3 THEN xr=xr+1 

240 IF INKEYSR2=9 THEM IF xrixi+1 THEH xr=xr-1 

359 LÜCATE xr-1l:ogyr:PRINT r4$ 

369 GOTO 13% 

378 ‘* 

369 FOR TF=1 TO 298M:HEXT TP:COTO 54 


TRACÉ DE COURBE 


Ce programme trace la courbe d'une fonction écrite en 400. Les échelles sont calculées 
par le programme. 
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oxne Ra 3 ESA 3 


sine 
RUN 26810 





Ka —4,81490178 


19 ‘ =m_"memmmmeme .BEACS de courbe 
29 MODE 2:PAPFER G: 


39 IHK W:1:IHK 1,24 
49 hecr=396: lecr=598 " hauteur /larSeur ecran 
59 INPUT "Borne #1 ";ibli 
69 INPUT "Borne #42 ";be 
79 INPUT "Pas "jPas:IF Pazs=9 THEN Pas=09, 1 
DA À meme on ou ae ne oo recherche mini/maxi 
29 x=b1:COSUB 499:141=1:y2=y 
199 FOR x=bil TO b2 STEF Pzs 
113 GOSUE 458 
129 IF y<s1 THEN 31=1 
138 IF 9232 THEH 32=4 
149 HEXT x 
158 ex=lecr/Cb2-b1 52 * echelle x 
164 Fu D 
179 ‘mm 
ee: IF b2>=# AHD D1= ai x=-#8%x#b1:PLOT x:1:DRAU x, hecr,1 
298 IF Yy2»=f AND y1<=Q THEN J=-y1#ey:PLOT 1:y:DRAU lecr,y 
210 = ee mm mm me courbe 
224 FOR x=bi T9 2 STEP a 
259 GOSUB 449 
24H Ssxz(x-bl ikex:sy=(y-u11*%ey 
259 FLOT 25x,2y,1 
265 MEST x 
278 en oo affichage extremes 
259 ALTER IT: x=12:b=b1i:GOSUE 348 
530 J=-y1#eu+12:x=lecr:b=b2:GOSUB 349 
5:99 4712: x=AB5S b1 2kex : b=y 1 : GOSUE 348 
319 s=hecr:x=HESC 1 ex :b=y2:COSUB 349 
329 END 


FD 

348 IF x>lecr THEH x=lecr/2 

359 IF s>hecr THEH y=hecr/2 

369 PLOT x, 

379 TAG:PRINT B; 

3884 RETURH 

DD ee mn courbe 4 tracer 
495 VY=SINC HIER 

415 RETURH 


2 | LITRES LAID 4 EN LZ 


HISTOGRAMME 
Ce programme d'histogramme calcule l'échelle automatiquement. 
706 7GG 
609 | 
599 
496 





JV LU  O mrs avr mai Jjui Juil 


| mm mn nm HISTOGRAMME 
MODE 2 

INK W,1:INK 1,2Zd:PAPER G:FEN 1 

nm=f # nombre de mois 
DATA jv,,596, fy,49à 


DATA mrs,: 699, avr, 799 
DATA mai,69%, Jui ; 299 
DATA Jjuil,7@9 


à 


FOR..i=1 TO nm:READ mois$( i j,unte( 1): NEXT à 
K3=29:13=38 * depart axes 
ix=508 * intervalle * 
hecr=309 * hauteur ecran 
À ot recherche maxi 
mxzsntec 1 2 
FOR m=2 TO nm 
IF wnteimièmx THEN mxzwnteé mn 
HEXT m 
ech=hecr mx " echelle 
Le 0 oo mn axes 
PLOT x3,:Y93:DRAU vatnmékix, ya, 1 
PLOT %X23,:Y3:DRAN xa,hecr+ya, 1 
À D on affichage mois 
FOR m=i TO nm 
H=KXA+S+IXKC mM-1):y=y3-12 
PLOT %x,4:TAG:PRINT mois$( rm); 
NEXT m 
À 0 0 tt oo courbe 
FOR m=1 TO nm 
xI=ka+19+1%x 2% m-1:yl=ys+tuntetmikech 
FOR dxzg TO 5 
PLOT xi+dx,;ya:DRAU xi+dx,u1,1 
NET dx 
NEXT m 
2 affichage valeurs 


A 
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378 FOR m=1 TO nm 

384 J=yatynte(mi#ech+1ié 

399 XS=XATIXEC mMm—i2-19 

4ag PLOT %x;:9:TAG:FRINT vnte( mo); 
419 HEXT " 


HISTOGRAMME 3D 





Ce programme d'histogramme en trois dimensions, écrit sur AMSTRAD), s'adapte sur 
tout matériel disposant du graphique haute résolution. 


Pour un matériel disposant de l'instruction BOXF (boîte pleine), tel que le MO5 ou MSX, 
le programme devient plus simple. 


À: nt ER RER ANSE EE histooramme SD 


39 xd=59:3d=58 or19ine 
46 13-59 larSeur- 


59 pr=19 Profondeur 

68 itv=56 intervalle batons E 
‘9 ? 

89 nh=S ? nombre de batons 


139 hé 1 2=49 

118 hC22=359 

129 F32=59 

138 hédi=10 

144 h6S2=68 

158 - 

169 FÜR henh TO 1 STEP-1 
179 xb=xd+(h-12:%Xity * oriïine baton 

139 yb=ud+éh-1 kits 

138 FOR dx=1 TO pr * 1 baton 

299 PLÜT xb+dx, gbæ+cse+hié hi), 1 

214 IF dx>1 THEN PLOT xb+dx+19,ub+dx, 1:DRAU xb+dx+19, ub+cdw+h 
Ch); 1:G0T0 258 

£28 FOR dizi TO 13 * rectandle 

239 PLOT xb+dx+d1,ub+dx, 1:DRAU xb+dx+cd1, yb+diethé h 3, 1 

c4n MEXT di 

254 PLOT xb+dx+1,5b+dx+h0h2:DRAU xb+cst+ 19, yuhécdsethé h à, 0 
269 HEXT dx 

219 PLOT xb+dx-1,9b+dx+héh2, L'DRAU xb+dik-1+19, ub+cdu#hé ho, 1 
299 THG:PLOT xb+39;9b:PRINT HhChji: 

298 HEXT hH 


M: 2 


66 
19 






59 
36 
46 


GESTION 


SAISIE D'ÉCRAN 





Une saisie d'informations avec l'instruction “INPUT” ne permet pas de positionner sur 
une zone qui aurait été mal documentée. Le programme suivant le permet. || utilise la 
fonction INKEY$. En outre, les caractères frappés au clavier peuvent être contrôlés 
dés leur introduction, sans attendre la frappe de ENTER. 










NOP DUPONT 
FREMNOP JEAN 

RUE 11:RUE NOBEL 
VILLE 







flèche haut pour 
zone arrière 






19 “mm nn ce mme saisie dans Le 
aie Une table FICHS&C à 
SD nrub=z4 * nombre de rubriques 


49 nrub$gé 1 >="NOM" 
28 nrub$f 2 )= "PRENOM" 
69 nrub$c3)="RUE" 
ra nrubée 4 = "YILLE" 


36 GOSUB 139 

_. RASE TRES lnsi TO nrub:PRINT fiché( In):NEXT Ln 

120 Er g nn em nn mn SOUS PrOSramme saisie 

1 ER on TO De "fleche haut Pour zone arriere" 

169 LOCATE 1, 1ln+i:PRINT nrub$c ln? 

he gi 15, Untl:PRIHT fichéä ln) ? ancienne valeur 


199 

295 FOR 1n=i TO “rub 

219 xs=19:ys=lnri 

229 GCOSUE 328 

239 IF r=1 THEN fich$(ln)=l1i9# 

240 IF r=3 THEN IF 1n21 THEN LOCATE xs, y3:PR Fi ‘in 
Li EOTE DS DE Wie JS: FRINT #Fich$élni:in 

259 LOCATE xs,ys:PRINT fich$é In); SPC Z2G-LENC F rch$c Lin) 2) 

269 HEXT ln 

. PRINT:FOR 1n=1 TO nrub:PRINT fich#(ln):NEXT ln ‘ Pour te 
5 


—#- 
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269 EHD 

299 ‘een nn sPam saisie dans 119% 
308 ‘* R=3 zone arriere 

319 ’ 

329 1i9$="" 

339 ? 


349 13=LENS 119$):LOCATE x8+19,u2:PRINT CHRSC1433 +’ 143:curseu 


” 
350 LOCATE x2+13,ys 


368 

379 C#=INKEYS:IF c$="" THEN 379 " attente frappe 

388 c=ASC(CS) 

399 ‘ 

499 IF C{2127 THEN 439 ° code suPPression 
419 IF 1929 THEN 1195=LEFTSC 119$, 19-1):PRINT EHR#&C32):GOTO 349 
ELSE 349 

429 ‘ 

438 IF c=13 THEN 569 " code ENTERT 


449 IF Cc=249 THEN r=3:LOCATE xs+19,YS:PRINT CHR&C 32 }: RETURN 
458 IF c<32 OR c)127 THEN PRINT CHR#7 ); :GOTO 2378 


468 113$=1i19$+c$ Ajout caractere fr 


apPe 


479 PRINT c$ * affichage caracter 


e fraPPle 

489 GCOTO 348 

436 ‘ 

599 LOCATE xXs+19,43:PRINT CHR# 32 ) 
519 IF 11i3$<>"" THEN r=i ELSE r=2 
525 RETURH 


FICHIER D’ADRESSES 





Le programme ci-dessous permet d'introduire et de modifier des données indépen- 
dantes du programme. Elles sont temporairement stockées dans des tables qui sont 


ensuite sauvegardées sur cassette. 


NOMS() RUES() VILLES() 


PARIS 
DOMFRONT 


BAYEUX 







DUPONT RUE XXX 
RANG — MARTIN RUE XXX 






BREBION 
BREBION | RUE XXX 





\} Sauvegarde 


NOMS() RUES () 


La variable “RANG” donne l'adresse de rangement dans les tables. 


Le mode “C” permet à la fois de créer et de modifier des fiches. 


En mode modification, la valeur de chaque zone est affichée puis le programme attend 
une nouvelle valeur. Si vous ne voulez pas modifier une zone, appuyez sur “ENTER” 


sans entrer de valeur. 


L'utilisation de l'instruction LINE INPUT (au lieu de INPUT) permet d'introduire le ca- 
ractère virgule dans les zones. 


L'instruction 300 peut être remplacée par : 
300 IF NOM$S=—LEFT$S(NOMS(RANG),LEN(NOMS$)) THEN 380 


On peut ainsi entrer seulement les premières lettres du nom. 


Pour obtenir une liste triée par noms, nous remplissons une “table des Clés” CLESQ 
avec les clés à trier. 


Dans une “table d'index” IX%() nous rangeons les numéros de ligne (1, 2, 3.) 


CLES( ) IX 0 () NOMS ) RUES 







DUPONT > 1 RUE XXX 
MARTIN 2 RUE XXX 
BREBION 3 BREBION 
Q Nous trions les tables CLES() et IX% () 
CLES( ) IX%{ ) NOMS( ) RUES } 





BREBION 
DUPONT 
MARTIN 










DUPONT 
MARTIN 
BREBION 






RUE XXX 
RUE XXX 
RUE XXX 














Ces tables n'ont 
pas été modifiées 


Q Après le tri, il suffit de lire la table IX%() pour éditer les adresses dans l'ordre des 
noms. 


TRI-SÉLECTION 


Pour obtenir la liste triée des personnes d'une seule ville il suffit de sélectionner les 
noms ainsi : 


1140 INPUT « Quelle ville », V$ 
1180 IF V$<> VILLES$(F) THEN 1200 


TRI-MULTICRITÈRES 


La liste alphabétique des clients dans l'ordre des villes s'obtient en faisant : 
CLES(F) = VILLES(F) + NOMS(F) au lieu de CLES$(F) = NOMS(F). 
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CLES () 









Suppression : 


Pour supprimer une fiche, nous décalons toutes les fiches en aval de la fiche suppri- 
mée. 


NOMS NOMS 


DUPOND 
ROULET 


MARTIN 


DUPOND 









| Fiche supprimée —- 





Si vous n'effectuez qu'une sauvegarde, faire : 


19 
29 


280 


160 IF M$="FIN" THEN GOSUB 500:END 


72 20 2 en Dj et100 2 00 10 <q fichier d'adresses 

MODE 2:PRINT "CLAVIER MAJUSCULE" 

DIM NOM${100),RUE$ (100) ,VILLE#({100),CPST#(1060) 

DIM CLE$(100},1X2(10G0) 

NFICH=0 " nonbre de fiches 

INPUT "NOUVEAU FICHIER (O/N)":RS$:IF R$="0" OR R$="o" THEN 90 
GOSUE 680 


CLS:PRINT "MODES: ": PRINT 
PRINT TAB(3) "C: CREATION/MODIFICATION" 
PRINT TAB(3) "LF: LISTE DU FICHIER" 
PRINT TAB(3) "FIN: FIN DE SESSION(SAUVEGARDE)}" 
PRINT TAB(3) "LFN: LISTE DU FICHIER PAR NOM" 
PRINT TAB(3) "LFV: LISTE TRIEE PAR VILLES" 
PRINT:INPUT "MODE ":MS#:ME=UPRERS (M$) 
IF M£="C" THEN GOSUR 230 
IF M$="FIN" THEN GOSUB 500:END 
IF M$="LF" THEN GOSUR 810 
IF M$="LFN" THEN GOSUB 536 
IF M$£="LFU" THEN GOSUB 1210 
IF M$="S" THEN GOSUB 1450 
GOTD 90 
l====22S=z=s==z= ==E===S=====LIE===-=-= creetion/nmodification 
PRINT 
PRINT "<ENTER> pour fin de mode” 
PRINT "<ENTER> pour zone inchangee(en modif)":PRINT 
LINE INPUT "NOM (ou £ENTER>}) 7 ",NOMS:IF NOM$="" THEN RETURN 
: pas d'espace entre “" de IF NOM$="" 
IF NFICH=0 THEN 350 — 


+ ONE EE LS D LAS EL 


290 FOR RANG=1 TG NFICH 


300 IF NOM$=NOM$(RANG) THEN 380 nom existe t-il? 
310 NEXT RANS 
S20 nouveau nom 


330 PRINT : INPUT "NOUVEAU NOM OK (D/N) CHRSIIF R$SÈ"O" AND R$<S" 
0" THEN 230 

340 NFICH=NFICH+1 

330 RANG=NFICH 

360 NOM$(RANG) =NOM# 


370 entree/modification zones 
380 PRINT 
390 PRINT RUE$(RANE):;TAB(15); " éncienne valeur 


400 LINE INPUT "RUE? ",RUE$:IF RUE#<>"" THEN RUE$ (RANG) =RUE# 
410 PRINT VILLES#(RANG):TAB(15); 

420 LINE INPUT "VILLE? ",VILLES 

430 IF VILLE$<>"" THEN VILLES (RANG)=VILLES 

440 PRINT CPST$(RANG):TAB(15);: 

450 LINE INPUT “CODE POSTAL? *,CPST# 

460 IF CPST$<>"" THEN CPST$ (RANG)=CPST# 

470 GOTO 230 

HO ‘====2zs=-szzzssesssz=sessuse-sssse-- Sauvegarde 

300 OPENQUT “ADR" 

910 

520 PRINT #9,NFICH 

350 FOR F=1 TO NFICH 

540 PRINT #9,N0M#(F) 

J30 PRINT #9,RUE#({F) 

560 PRINT #9, VILLES(F) 

570 PRINT #9 CPST#(F) 

380 NEXT F 
379 CLOSEQOUT 
800 RETURN 
670 lSSSFS=SSér==sssssspszsseesusse=scs2 lecture fichier 
666 OPENIN "ADR" 

690 ‘ 

700 INPUT #9,NFICH 

710 FOR F=1 TO NFICH 

720 LINE INPUT #9,NOM#(F) 

730 LINE INPUT #9 RUES(F) 

740 LINE INPUT #9,VILLE#(F) 

759 LINE INPUT #9,CPST$(F) 

760 NEXT F 

775 CLOSEIN 

780 PRINT:PRINT NFICH: "FICHES" 

790 FOR TP=1 TO 2000:NEXT TP 


B0Q RETURN 

piû "RÉSRESSSSS=ESSsEs=s=Lssssasr===e2sce liste du fichier 
820 PRINT "LISTE DU FICHIER":PRINT 

330 ‘ 


340 FOR F=1 TO NFICH 

850 IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER"3:X# 
860 PRINT NOM$({F);TAB(12); 

870 PRINT VILLES$(F): 

380 PRINT 

890 NEXT F 

700 PRINT: INPUT "APPUYER SUR £ENTER» ":X$ 


920 SIZEZZIIS===ZI==S=====SS-zss--se=esee liste trise par nom 
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936 FOR F=1 TO NFICH 


940 


CLES(F)=NOM#(F):IX4(F)=F 


950 NEXT F 


Féû 


975 NC=NFICH 
780 GOSUB 1090 


9396 

1060 
1910 
1020 
1030 
1040 
1056 
1060 
1570 
1080 
1990 
100 
1110 
1120 
1i5û 
1140 
1150 
1140 
1170 
11Bû 
1199 
1290 
1210 
1229 
1270 
i24û 
1250 
12450 
1270 
i340 
135 

134û 
{370 
1380 
1390 
1400 
1410 
1470 
1430 
1440 
1450 
1440 
1à70 
1480 
1490 
1900 
1510 
1520 
1530 
1549 
1550 
1560 
1570 


Ac: nombre de cles 
" appel tri 


CLS:PRINT "LISTE TRIEE PAR NOM":PRINT 
FOR F=1 TO NC 

KX=1X4(F) 

PRINT NOM#({Y); TAR(1S}: 


PRINT YILLE$(X) 

NEXT F 

PRINT: INPUT “APFUVER SUR £ENTER) “x 
RETURN 

nee tri shell 
ECART=NC 


ECART=INT(ECART/2):1F ECARTéI THEN RETURN 
IvV=G 
FOR K=1 TD NC-ECART 

J=K+ECART 

IF CLES$(J)>=CLE#(K} THEN 1170 


K$=CLES(K): CLES$ (K) =CLE$ (9): CLES (J)=Y#: [V=i 
K=IX4(K)2:IXL(KI=IXL (TJ) 2 IX (JT) =X 
NEXT K 
IF IV=i THEN 1110 
G0TO 1100 


RESTES ES me mu ue PEU MEN né ds ds ut mn Que (NN ns dés ds cé ee œe dur 
Re 0 D ee de qu UN UD US OS de de us ee 7 00 En mm m—— 


INPUT “VILLE (ENTER pour toutes) 
NC=G 
LG=LEN<{CLES#) 
FOR F=i TO NFICH 
IF CLES$<3LEFT#(VILLE#(F} LG) THEN 1279 
NC=NC+1:CLES (NC) =VILLES(F): IXL(NC)=F 
NEXT F 
GOSUR 1090 " appel tri 
CLS: PRINT LISTE TRIEE PAR VILLE":PRINT 
FÜR F=i TO NC 
IF F MOD 20=0 THEN INPUT 
X=IX4(F) 
PRINT VILLE#$(X}:TAB(15): 
PRINT NOM#(X) 
REÂT FE 
PRINT 
RETURN 


’ DT ON CR cé ue ue dt 


liste triee par ville 
":CLES 
nombre de cles 


"APPUYER SUR ENTER": X# 


: INPUT "AFPUYER SUR <ENTER} ":X# 


suppression 


PRINT:LINE INPUT “NOM? ":NOM#:IF NOM$="" THEN RETURN 


FÜR RANG=I TO NFICH 


IF NOMS(RANG)i=NOM#$ THEN 1520 
NEXT RANG 
PRINT: PRINT "N'existe pas":PRINT:60T0 1450 
FRINT 


INPUT "SUPPRESSION DK {O/N) 
FOR J=RANG TO NFICH-1 
NOM$(J)=NOM# (J+1) 
RUE$(J)=RUE$(J+1) 
VILLES(J}=VILLES#(J+1) 


"HRS:IF R#€}"0" THEN 1450 


LU 1! D'ÉAUIN, PAIVAND L INTEL 


1580 CPST$(J)=CPST$(J+1) 
1390 NEXT J 
1600 NOMECNFICH)= "MS RUES (NFICH}="MS VILLES (NFICH)=" "2: CPSTS$S(NFICH} 


1610 NFICH=NFICH-1 
1620 GOTO 1450 


Mode 7? € 


(ENTER? pour fin de mode 
CENTER? pour zone inchangeetmodif) 


Nom (ou <ENTERÿ? DURAND 

Nouveau nom CK (O/N) ? 0 
Rus? 13,RUE DE MILAN 
Ville? PARIS 
Code postal? 75000 


CENTER? pour fin de moce 
ENTER? pour zone inchangee(modif) 


Nom {ou <ENTER>? 
Break in 260 
Ok 


Liste triee par nom 


BALU RUE XXX ST CLOUD 
BESSE RUE DE MILAN TOULON 
DUPONT 11,RUE NOBEL MONTIGNY 
DURAND 13,RUE DE MILANPARIS 
MARTIN X À 4 KKKK 
RACLIN RUE XXX PARIS 


Apouver sur ENTER ? 


GESTION DE FICHIER AUTOMATIQUE 


Avec ce programme, la description des rubriques (NOM, LONGUEUR,TYPE) est faite 
par l'utilisateur de façon conversationnelle. Cette description est sauvegardée dans le 
fichier. 


Une table FICHS(,) à 2 dimensions contient dans chaque ligne un “enregistrement”. 


NRUBS()  TYPS() LG() NOM RUE VILLE CPST 


PR 
RUE XXXX | MONTIGNY 
NCNC 
RC M 
Et Per 
D OR STE SES 










Nouveau fichier (O/N)?7 0 
Nombre maxi de fiches? 100 


Nom rubrique ? (ou <ENTER>) NOM 
Type(C=chaine/ N=numérique)?C 
Longueur maxi 7 12 

Nom rubrique ? (ou <ENTER>} PR 
TypefC=chaine/ N=numérique)?C 
Longueur maxi 7? 10 

Nom rubrique ? (ou €ENTER>) AUE 
Type(C=chaine/ N=numérique)?€C 
Longueur maxi 7? 15 

Nom rubrique ? (ou <ENTER»>) VILLE 
Type(C=chaine/ N=numér ique})?C 
Longueur maxi ? 135 

Non rubrique ? (ou <ENTER)D) CPST 
TypelCschaine/ N=numérique)?C 
Longueur maxi 7 5 

Non rubrique ? (ou <ENTER>) 
Break in 360 

DK 


CRÉATION ET MODIFICATION : 


La création et la modification d’enregistrements se font avec le mode “C”. Pour une 
modification, l'ancienne valeur de chaque rubrique est affichée. Le programme attend 
alors la nouvelle valeur. Si l'utilisateur appuie sur <ENTER> sans entrer de valeur, la 
rubrique n'est pas modifiée. 


TRI / SÉLECTION : 


LF: liste du fichier 

LFA: liste du fichier 

LFT: liste du fichier triee 
FIN: fin de session (SAUVEGARDE) 
#1 suppression fiche 


Mode ? € 

NOM ( ou <ENTER}>) DURAND 
Nouvelle clé OK (O/N)7 0 
Rizone arrière 


DURAND NOM ? 


PR JEAN 

RUE  ?11,RUE NOBEL 
VILLE  ?MONTGNY 

CPST 778180 


NOM ( ou <ENTER:) 
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Le mode “LFT” permet de sélectionner et de trier des fiches automatiquement. 


Mode 7? LET 
Position tritnom rubrique)? NOM 


Cle 
Nom 
Nom 
Nom 
Nom 


selection? (ou CENTER>) 


rubrique a editer (ou CENTER? )} NOM 
editer (ou <ENTER: } PR 


rubrique 


3 
rubrique à editer (ou <ENTER> ) VILLE 
à 


rubrique editer (ou ENTER} ) 


JE TRIE POUR VOUS 


290 ! LDAUIR, FAIVIO L M APRLZ 


Liste triee des fiches 


!BALU  THIERRY IST CLOUD 
! DUPOND JEAN MONTIGNY 
lRACLIN JEAN PARIS 


Appuyer sur <ENTER» ? 


Vous pouvez ajouter des programmes spécifiques. Par exemple, un programme d'édi- 
tion. Les rubriques sont connues sous le nom de FICHS(F,1), FICHS(F,2), etc. 


3000 FOR F=1 TO NFICH 

3010 PRINT FICHS(F,1):TAB(20) 
3020 PRINT FICHS(F,2) 

3040 NEXT F 


Si vous n’effectuez qu'une sauvegarde, faire : 
2350 IF M$="FIN" THEN GOSUB 790:END 


1Q =----e-emmmmmmese-mmmmmmmmm mes GESTION DE FICHIER 
20 ‘ 

30 Les noms des rubriques sont definis de facon 
4G conversationnelle et sauvegardes avec le fichier. 
30 Une table FICH#(,) a 2 dimensions contient dans 
60 ” chaque ligne un ‘enregistrement. 

79 ” 

80 ‘ MF ICH: nombre maximum de fiches 

74! ” NF ICH: nombre de fiches 

100 ” NRUB$(): noms des rubriques 

116 ‘ 

126 NFICH=0  nonbre de fiches 


130 MODE 2:PRINT "CLAVIER MAJUSCULE" 

140 INPUT "Nouveau fichier ({O/N) ":3R#:1IF R$="0" OR R$="o" THEN : 
OSUE 320:G0T0 140 

150 GOSUR 930 

160 CLS:PRINT "MODES: ":PRINT 

179 PRINT TAB(3)3;"C: CREATION/MODIFICATION" 

189 PRINT TAB(3)5;"LF: LISTE DU FICHIER" 

190 PRINT TAB(3): "FIN: FIN DE SESSION(SAUVEGARDE)" 
200 PRINT TAB(3):"LFA: LISTE DU FICHIER" 

210 PRINT TAB(3):"LFT: LISTE DU FICHIER TRIEE" 

220 PRINT TAB(3):"S: SUPPRESSION FICHE" 

250 PRINT:INPUT "MODE ":M$:MS$=UPPERS(M#) 

246 IF M$="C" THEN GOSUB 480 

250 IF M$="FIN" THEN GOSUB 790:END 

260 IF M$="LF" THEN GOSUR 1110 

270 IF M$="LFA" THEN GOSUR 1310 

299 IF M$="LFT" THEN GOSUB 1380 

290 IF M$="S" THEN GOSUB 2130 

500 GOTC 160 


310 ‘==szsszsesseszezsssses-zzzzssss-22 description des rubriques 
320 PRINT 

330 INPUT "Nombre maxi de fiches "sMFICH 

540 PRINT 


350 FOR K=1i TO 10 ù " 19 rubriques maxi 

360 LINE INPUT "Nom rubrique (ou €ENTER>) ":X$ 

370 IF X$="" THEN NRUB=K-1:DIM FICH$ (MFICH,NRURB) ,CTRIS$ (MFICH), : 
X 4 (HFICH) : RETURN 

580 NRUBS(K)=X+# 

390 LINE INPUT "Type (C=chaine/ N=numerique ) ? nn — 


LES PROGRAMMES | 149 


400 IF X$<>"C* AND X$<>"N" THEN 3990 
41Q TYPHIK)=X$ 

420 INPUT "Longueur maxi "“:X 
450 LE(K)=X 

440 NEXT K 

450 PRINT "TROP DE RUBRIQUES":STOP 

AO ‘=s====sszszzzzzss=ssssssszes=zzs- CREATION/MODIFICATION 

470 ‘ En node modification.entrer seulement les premieres lettre 
s de la cle 

4680 PRINT 

496 PRINT NRUB#(1)3 

909 LINE INPUT " (ou £ENTER? } ":CLES$S:IF CLE$="" THEN RETURN 

510 ” pas d'espace entre "" de IF CLE$="" 

20 LG=LEN(CLES#) 

930 IF NFICH=0O THEN 4820 

540 FOR RANG=1 TO NFICH 

J90 IF CLES=LEFT$S(FICHS(RANG,1),LG) THEN 880 ‘© nom existe? 

360 NEXT RANG 

10 "------ememmme— nouvelle cle 

820 PRINT: INPUT "Nouvelle cle OK {O/N) ":R$ | 

630 IF R$<>"0" AND R$£i"n" THEN 480 é 

640 NFICH=NFICH+I 

650 RANG=NFICH 

666 FICH$S(RANG, 1)=CLES$ 


DIU "pres meimnnemensmme me entree/modif zones 

690 PRINT 

690 FRINT "R:ZONE ARRIERE":PRINT 

700 FOR R=2 TO NRUE " où FOR R=1 TO NRUR 
710 PRINT FICH$(RANG,R)3;TAB(15): " ancienne valeur 
729 PRINT NRUB$(R);TAB(22}); " nom de zone 


730 LINE INPUT "9",X4 

740 IF Y$="R" THEN IF R>i THEN R=R-1:6079 710 

7150 IF X$<>"" THEN FICH#(RANG,R)=X$# 

760 NEXT R 

770 GOTQO 485 

JG0 ‘=s===========2S2=2----======Ss==z=z=s=2==sss==ss==2=- sauvegarde 
#50 OPENOQUT "FICH" 

606 PRINT #9,MFICH:PRINT #9,NFICH:PRINT #9,NRUB 

8106 FOR R=1 TO NRUB 

920 PRINT #97,NRUB#$({R):PRINT #9,TYP#(R):PRINT #9,LG6(R) 

830 NEXT R 

g4û 

856 FOR Fzi TO NFICH 

8680 FOR K=1 TG NAUR 

870 PRINT #9,FICH#(F.R) 

8RG NEXT K 

890 NEXT F 

900 CLOSEOUT 

715 RETURN 

90 ‘sssssssszzzszszsszsssssssssesss=ssspesssesse iecture fichier 
930 OPENIN “FICH"* 

940 ‘ 

50 INPUT #9,MFICH,NFICH,NRUB 

960 DIM FICH$F(MFICH,NRUB) ,CTRI$(MFICH) ,IX4(MFICH) 

970 FOR R=i TO NRUE 

980 INPUT #9,NRUES$(R),TYP£(R) ,LG(R) 

90 NEXT R 

1006 FOR F=i TO NFICH 

1910 FOR K=i TO NRUE 

1020 LINE INPUT #9,FICH#(F,R) + 


1030 
1940 
1050 
1060 
1070 
1080 
1070 
1100 
1110 
1120 
1150 
1140 
1159 
118609 
1170 
1180 
1190 
1200 
1500 
1310 
1320 
1530 
1549 
1330 
1360 
1370 
13575 


1376 : 


1580 
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NEXT R 

NEXF F 

ELOSEIN 

PRINT: PRINT NFICH: "FICHES" 
FOR TP=1 T9 2900:NEXT TP 
GOSUR 2070 

RETURN 


CLS 
PRINT "LISTE DU FICHIER'":PRINT 


FOR F=1 TO NFICH 


liste du fichier directe 


IF F MOD 20=0 THEN INPUT "Appuyer sur ENTER ":%X$ 
PRINT FICH$(F,1)3;TAB(15);: " zone i 
PRINT FICH$#(F,2} " zone 2 
NEXT F 
PRINT: INPUT "APPUYER SUR ENTER} "ax 
RETURN 
lssszssssss=sssszsszz====== liste des fiches automatique 
ID(i)={:1D{2)1=3 " numeros des zones (a adapter) 
CLS: PRINT "LISTE DES FICHES":PRINT 
FOR F=1l TO NFICH:IXZX{(F)=F:NEXT F 


NC=NFICH:GOSUR 1650 
RETURN 


+ = ne ne ne On ue ut ue ue tt GO UN MUR Lu ut RS LS dt us Me Lu us du Lt cs 
ee me ce Ce Ce Ce Ce CE Ce le UE Ou ( ét lue fut lune dé fus nuls té 


tri/selection des fiches 
" Pour cles commencant par ‘BA‘ repondre ‘BA 
a la question ‘Cle selection? : 


INPUT "Position tri {nom rubrique) ":X$:GOSUR 1490:1IF R>NRU 


B THEN 1380 


1390 
1490 
1410 
1420 
1450 


PTRI=R 
LINE INPUT "Cle selection? (ENTER pour toutes) ",CLES$ 
FOR J=1 TC NRUB+1i 
ID(J}=0 
LINE INPUT "Nom Rubrique a editer (ou ENTER "s:X#:1F X$="" 
340 


THEN 154 


1440 
1450 
1460 
1476 
1480 
1496 
1500 
1510 
1526 
1330 
1549 
1550 
1560 
1570 
1580 
1599 
1600 
1610 
1620 
1830 
1640 
1650 
1660 


GOSUR 1490:1IF R>NRUB THEN 1420 
ID(J)=R 
NEXT J 
GOTO 13549 
FOR R=1 TO NRUE 
IF X$=NRUR#(R) THEN RETURN 
NEXT R 
RETURN 
NC=0 
LG=LEN(CLES) 
FOR F=1 TO NFICH 
IF CLES<OLEFT#S(FICH#(F,PTRI) ,LG) THEN 1590 
NC=NC+1:CTRIS (NC) =FICH#(F,PTRI): IXX(NC)=F 
NEXT F 
GOSUB 1920 
PRINT:PRINT 
GOSUB 1650 
RETURN 


— nn Oo te ut tt ue te te t te te t te Ce 


" nc! nombre de cles 


" appel tri 
"LISTE TRIEE DES FICHES ":PRINT. 


Spgan edition ecran 
FOR W=1 TG iû 
IF ID(W}=0 THEN 1700 


1679 
1680 
1895 
1700 
1710 
1720 
1730 
1740 
1759 
1760 
1779 
1780 
1790 
1800 
18:10 
1820 
1830 
1910 
1920 
1930 
1740 
1950 
1940 
1970 
1980 
1990 
2500 
2510 
2020 
2039 
z04û 
2950 
2049 
2270 
2080 
2090 
2190 
2119 
2120 
21350 
2140 
2150 
2160 
2179 
2189 
2i9û 
2200 
2219 
2220 
2230 
2280 
2259 
2280 
2270 
2290 
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PS{W)=PS(W-1)+LG(ID (MW) )+2 
NEXT HW 
FOR F=i TO NC 


FI=IXL(F) 
PRINT "I": 
FOR R=1 TO NRUB 
IF ID(R)=0 THEN 1790 
PRINT FICH#(F1,ID(R)); 
PRINT TAB(PS(R)): 
PRINT "I: 
NEXT R 
PRINT 
IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER": X$ 


NEXT F 
FRINT:INPUT "APPPUYER SUR <ENTER: ":X# 


RETURN 
ne tri SHELL-METZNER 
ECART=NC 

PRINT:PRINT "JE TRIE POUR VOUS ":PRINT 


ECART=INT(ECART/2):1F ECART<I THEN RETURN 
J=i 5sK=NC-ECART 

L=J 

M=L+ECART 

IF CTRIS(L)<2CTRIS(M) THEN 2040 
XF=CTRIS(L):CTRIS(L)=CTRIS(M):CTRIS(MI=X# 
H=IK4(L) = IXLIL)=IXL(M)s IXL(MI=X 
LEL-ECART:IF Léi THEN 2040 


GOTO 1970 

J=J+1:IF J5K THEN 1940 

SOTD 1580 

A D Re liste descripteur 
FOR K=1 TO NRUB 


FRINT NRUB$(R) 

NEXT R 

FOR TP=1 TO 2O000:NEXT TP 

RETURN 

"ESS2SSSSS=SzsE======SS=-Hs====s===-- suppression fiche 
PRINT :PRINT NRUB$(1);:LINE INPUT "7" ,CLES 


IF CLE$="" THEN RETURN 
FOR RANG=1 TO NFICH 
IF CLE#=FICHS(RANG.1) THEN 2200 
NEXT RANG 
PRINT: PRINT "N'existe pas":G60T0 2130 


PRINT: INPUT "ANNULE GK(O/N) 
FOR J=RANE TO NFICH-1 
FOR R=1 TO NRUR 
FICH#E(J,R)=FICHS(J+1,R) 
NEXT R 
NEXT J 
FOR R=i TO NRUB:FICH#(NFICH,R)="":NEXT R 
NFICH=NFICH-1 
GOTO 2156 


"HRSIIF R$<?"0" THEN 2130 
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BIBLIOTHÈQUE 





Une bibliothèque est gérée dans des tables en mémoire centrale. Ces tables sont 
Sauvegardées sur cassette. 


TITRS( ) AUTS( } CS) 


PSYCHANALYSE 


Er 
ASSEMBLEUR 
[e Pa 
Free 


MA VIE ET LA PSYCHANALYSE 


PROGRAMMER EN ASSEMBLEUR PINAUD 





Titres Auteur 


Deux mots-clés par ouvrage sont prévus. L'édition des listes triées par titre et par mot- 
clé se fait selon le principe présenté dans le programme de gestion d'adresses. 


On remarquera l'instruction : 


340 IF TITRS=LEFTS(TITRS (RANG,L)) THEN 460 


En “mode modification”, elle permet d'entrer seulement les premières lettres du titre. 


GC: Création modification 

LTITRE: Liste par titre 

LCLEs Liste par mot-clé 

FIN: Sauvegarde 

S: Suppression fiche 
Mode 7? £ 


Titre? FROGRAMMER EN ASSEMALEUR 
Nouveau titre (O/N) ? 0 
PROGRAMMER EN ASSEMBLEUR 


Auteur 7? PINAUD 
Mot clé 7 ASSEMBLEUR 
Mot clé 7 Z80 


Titre? 

Break in 280 

Ok 

Liste triée par titre 


BASIC À Z DUPONT 
BASIC ET SES FICHIER DUFONT 
BASIC POUR TOUS DUPONT 
PROGRAMMER EN ASSEMB PFINAUD 


Appuyer sur <ENTER: 7? 
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ASSEMBLEUR 
PROGRAMMER EN ASSEMB PINAUD 


BASIC 
BASIC ET SES FICHIER DUPONT 
BASIC A Z DUPONT 
BASIC POUR TOUS DUPONT 
FICHIER 


BASIC ET SES FICHIER DUPONT 
Z80 


PROGRAMMER EN ASSEMB PINAUD 


Si vous n'effectuez qu'une sauvegarde, faire : 


200 IF M$="FIN" THEN GOSUB 980:END 


JO ‘----—“mmmmmmmmmmmmmmmmmmmm mm BIBLIOTHEQUE 

20 MODE 2:PRINT "CLAVIER MAJUSCULE" 

39 DIM TITR#(100),AUT#(100),C$(100,2) 

4Q DIM CLE#$(200),1Xx%(200) 

J0 NFICH=G nombre de fiches 
60 INPUT “NOUVEAU FICHIER (O/N) ":R# 

70 IF R$="0" OR R$="o" THEN 100 

650 GOSUB 1110 


90 

166 CLS 

110 CLS:PRINT "MODES:":PRINT 

129 PRINT TAB(3) "C: CREATION/MODIFICATION" 


130 PRINT TAB(3) "LTITRE:LISTE PAR TITRE" 

140 PRINT TAB(3) "LCLE: LISTE PAR MOT-CLE" 

199 PRINT TAB(3) "FIN: SAUVEGARGE" 

160 PRINT TAB(3) °S: SUPPRESSION FICHE" 

170 PRINT:INPUT "MODE “: M$: M$=UPPERS(M#) 

180 IF M$="C" THEN GOSUB 270 

199 IF M$="LTITRE" THEN GOSUB 4660 

200 IF M$="FIN" THEŸ GOSUR 98B0:END 

210 IF M$="LCLE" THEN GCSUB 1510 

220 IF M$="S" THEN GOSUB 1550 

250 GOTQ 110 

240 ‘rzsEesss=sssszs===s=2ssssssesssssssssz rcreation/n0udification 
Fe " en aode sodification,entrer les premieres lettres du titre 
2680 ” 

270 PRINT 

289 PRINT:LINE INPUT “TITRE? (OÙ ENTER) ":TITRS 

290 IF TITR$="" THEN RETURN 


310 EB=LEN(TITRS) 

320 IF NFICH=0O THEN 370 

330 FOR RANG=1 TO NFICH 

540 IF TITR$=LEFT#(TITRS(RANG) ,LG) THEN 460 

330 NEXT RANG 

OUVRE ee Mere de eee en mme nouveau titre =D 


194% 


370 
380 
390 
490 
410 
420 
450 
440 
ent 
450 
480 
470 
460 
490 
300 
Ji 
320 
J350 
340 
90 
630 
b40 
" à 
850 
660 
679 
699 
690 
109 
710 
FES 
720 
750 
740 
750 
769 
770 
780 
799 
890 
810 
820 
850 
B40 
850 
860 
870 
885 


! DAOIL AMS IRAD 


PRINT: INPUT "NOUVEAU TITRE (O/N) "F5R$ 
IF R$€>"O" AND R$<)"0" THEN 280 
NFICH=NFICH+1 

RANG=NFICH 


TITR$(RANG)=TITRS 


pour modification,appuyer sur <ENTER si zone Sans change 


PRINT :PRINT TITR$(RANG): PRINT 
FRINT AUT$(RANGS); TAB(15); ancienne valeur 
INPUT "AUTEUR ":AUT$:IF AUT$£>"" THEN AUT$(RANG)=AUTS 


FOR C=1 TO 2 

FRINT C$CRANG,C); TAB(15); ancienne valeur 
INPUT "MOT CLE "“:C$ 

IF C$ei;"" THEN CF(RANG,C)=C# 
NEXT € 
G0TO 280 

lFTRRSSSESSLese=s=Ssprescessce-2 liste triee par titre 
Four liste des ouvrages commencant par BA  ,repondre 
‘Cie? 


FRINT:INPUT "CLE (ENTER pour tous les titres) ";:CLES 
LG=LEN(CLE#) 
NC=0 " ncsnombre de cles 
FOR LV=i TO NFICH 

IF CLES$CSLEFT#(TITR$ (LV) ,L6) THEN 720 
NC=NC+1:CLES$ (NC) =TITRS# (LV): IXX (NC) =LV 

IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER": X# 
NEXT LV 
GOSUR 840 " appel tri 
mm me me edition 
CLS:PRINT "LISTE TRIEE PAR TITRE "PRINT 

IF NC=0 THEN RETURN 
FOR LV=1 T0 NC 

X=IXZ4({LV) 

FRINT LEFT$(TITR#(X),20); TAB(22); 

PRINT AUT#(X) 

IF LV MOD 20=0 THEN INPUT Ys# 
NEXT LV 
PRINT:INPUT "APPUYER SUR <ENTER» "ex$ 
RETURN 

Re me nom mm mn tri shell 
ECART=NC 


ECART=INT(ECART/2):1F ECART(1 THEN RETURN 


899 IV=0 


990 
710 
720 
730 
$40 
750 
780 
770 
760 
770 


FOR K=1 TO NC-ECART 
J=K+ECART 
IF CLE#$(J)>=CLE#(K) THEN 950 
A$=CLES(K): CLES$(K)=CLES(J):CLES(J)=X$: IV=1 
X=IXZ(K) 2 IXX(KI=IXL (I): IXL(J)=X 
NEXT K 


SSSIISSSEIZ=SLSSSSSszE=EsSeS=s=sse=n-e— Sauvegarde cassette 
CPENQUT "BI" 
IF NFICH=G THEN RETURN 


1000 PRINT #9,NFICH jobs 


"BA 


1010 
1020 
1030 
1040 
1656 
1040 
1970 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1159 
1160 
1170 
1180 
1199 
1200 
1210 
1220 
1230 
1289 


1290 
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FOR F=1 TO NFICH 

PRINT #9,TIFTR#(F) 
PRINT #9,AUTE(F) 
FOR C=1i TO 2 

FRINT #9,C$(F,C) 

NEXT C 

NEXT EF 

CLOSEGUT 


sesSssszssisséssnssspgsss==s=s#2s2s=asz2z= lecture cassette 


OPENIN “BIB" 
INPUT #9,NFICH 
FOR F=1 TO NFICH 

INPUT #9,TITR#(F) 

INPUT #9,AUT#(F) 

FOR C=1i T0 2 

INPUT #9,C$(F,C) 

NEXT C 
NEXT F 
CLOSEIN 
PRINT:PRINT NFICH; "TITRES": PRINT 
FOR TP=1 TO 2000:NEXT TP 
RETURN 


‘ RO ut RO RO UN RO EN RO NO CN NO MR MS OR RO RS RO RER RUN ER CS NO ER M UN NO Œ ER EE 
D OL le ue UE CE UE RE ut ut ut RS un lt un le méme un nd de UE Ole «ie dé dt de EE ut de 


liste par ect cle 


n Cle? 


1500 
1310 
1329 
1330 
1340 
135 

1360 
1379 
1380 
1370 
1400 
1410 
1420 
1430 
1440 
1450 
1469 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1330 
1560 
1579 
1360 
1590 
1600 
1610 
1620 
16350 


INPUT "CLE (ENTER pour toutes ) 

LGE=LEN(ICLES) 

NC=0 

FOR F=i T0 NFICH 

FOR C=i TO 2 
1F C$(F,C)="" THEN 13590 
IF CLES<ÈLEFT#(C$(F,C),LG) THEN 1:90 
NC=NC+::CLES#(NC)=C#(F,C):IXX (NC) =F 

NEXT © 

NEXT F 


":CLES 


" nombre de cles 


GOSUB 880 

Fe 2020 me eue nt up pe ee en edition 

CLS: PRINT "LISTE TRIEE FAR MOT-CLE"3:PRINI 
FOR F=1i TO NC 
X=IX4(F) : 
IF CLE$(F-1)<{>CLES$S{(F) THEN PRINT:PRINT CLES(F):PRINT 
PRINT TAB(4):LEFT$(ITITR$S(X),20):TAB(25); 

PRINT AUT#(X) 

IF F MOD 8-06 THEN INPUT "APPUYER SUR ENTER "3%x$ 

NEXT F 

PRINT: INPUT "APPUYER SUR ENTER)": X# 


" appel tri 


SOIDOSSISSESSLESSSELELOSEISLSSSSENSSR suppression titre 
PRINT: INPUT "TITRE ":TITR$S:IF TITR$="" THEN RETURN 
LG=LENC(TITRS) 

FOR RANG=1 TO NFICH 

IF TITR$S=LEETS(TITRS(RANS) ,LG) THEN 1620 
NEXT RANG 
PRINT:PRINT "N'existe pas":PRINT:GOTO 1550 


FRINT TITR£(RANG) : PRINT 


INFUT "SUPPRESSION OK (O/N) ) "s5R# 


Pour tous les mot-cle,appuyer sur <ENTER: pour la questio 
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1840 IF R$<>"0" THEN 1550 
1650 FOR J=RANG TO NFICH-1 


1660 TITR#(J)=TITRS(J+1) 

16/0 AUT#({(J)=AUT#(J+1) 

1680 FOR C=1 TO 2 

1496 C#{J,C)=C$#(J+1.0C) 

1700 NEXT LC 

1710 NEXT J 

1720 TITR$(NFICH)="": AUTS(NFICH)="" 
1750 FOR C=1 TO 2: :C$(NFICH,C)="":NEXT C 
1746 NFICH=NFICH- 

1750 GOTD 1550 


157 
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Le BASIC du CPC 664 est très proche de celui du CPC 464. Il dispose de quelques 
instructions supplémentaires. Pour être en mesure de sauvegarder vos programmes 
BASIC, vous devez lire l'introduction de cette partie. 


INTRODUCTION 


Lorsque vous mettez le CPC 664 sous tension, le message ci-dessous apparaît : 


Anstrad 64K Microcomputer  ({v2) 


#1984 Amstrad Consumer Electronics plc 
and Locomotive Software Ltd. 


BASIC 1,1 






ECRITURE 


a 
D 
o 
mn 
O 
4 
= 
Z 
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PS arms nm mc scans cePonssete ne ER R 


Vous êtes sous BASIC. Placez la disquette CP/M dans le lecteur de disquette. La 
commande “CAT” vous permet d'afficher la liste des fichiers de la disquette : 


Ready 
CAT # 


Drive &: user 


AMSDOS ,.COM ik DDT : CON 5K FiLECOPY,.COM 3K STAT : CON 6 
ASH COM  8K DISC .BAS  20K FORMAT ,COM 3K SUBMIT ,.COM 2Kk 
BOOTGEN .COM  2K DISCCHK ,COM 3K LETTRE ,TXI 1K SYSGEN ,.COM 2K 
CHKDISC .C0OM 3K DISCCOPY.COM 3K LOAD . COM 2K X ETAT 1K 
CLOA9 . CON  2K DUMP : ASM ox MOVEPM ,.COM 10K XSUB « COM 1* 
CODE .+55$ OK DUMP : COM iK PIP « COM EK XX JERT 1K 
COPIE : 2 ED .COH ® 7K RITDEMO .BIN 12K XY FAT Lx 
COPYDISC.COM 3K EYX1 : BAS 2K ROINTIME,DEM 26K 

CSAVE «CON  2Kk EX2 «. BAS 1K SETUP « COM 8K 

12K free 


Pour sauvegarder vos programmes, vous devez d'abordinitialiser une disquette vierge. 
Pour cela, accédez à CP/M en frappant “ICPM” : 


(CPM 
>CP/M version 2.2 


Ensuite, frappez “FORMAT (avec la disquette CP/M). Enfin, placez votre disquette 
vierge et appuyez sur une touche quelconque. 


PORT 7 


FORMAT 43.0 


Please insert disc 
then press any key: 
Formatting started 
Formattino track 


to be formatted into drive 4 


Formatting track 
Formatting track 


CA ON tré y 


Formatting track 


Remarque : Assurez-vous que la protection écriture de la disquette n'est pas activée. 


Lorsque la disquette est “formatée”, vous pouvez sauvegarder vos programmes avec 
la commande SAVE. 


Pour revenir au BASIC, placez dans disquette CP/M puis frappez “AMSDOS”. 


SAVE ‘“nom-programme” 
LOAD “nom-programme” 


À 


La commande SAVE sauvegarde sur disquette le programme en mémoire centrale. 
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La commande LOAD permet de le transférer de la disquette vers la mémoire centrale. 


19 PRINT "AMSTRAD" 
20 PRINT "CFC£&64" 


JAVE "ESSAI 
Ready 


NEW 
Ready 


LGAD "ESSAI 
Ready 
LEA} 


19 PRINT "AMSTRAD" 
26 PRINT “CPC684" 


Le programme est sauvegardé avec le type “BAS” et s'appelle en réalité 
"ESSAI.BAS”, Pour l'effacer, vous devrez spécifier le nom suivi du type. 


Lorsqu'un programme est sauvegardé une seconde fois, l’ancienne version est sau- 
vegardée avec le type “.BAK”. Pour l'effacer, frappez : 


IERA, “ESSAI.BAK” 
Comme sur cassette, Un programme peut être sauvegardé en ASCII par : 
SAVE “non-programme”, À 
(cf. chapitre commandes). 


Nous vous conseillons de dupliquer la disquette CP/M sur une autre disquette (cf. 
DISCCOPY plus loin). 


COMMANDES ACCESSIBLES SOUS BASIC 
6128 et 664 


#m CAT = |DISC.IN 8 IDRIVE, A” 
= |DIR = |DISC.OUT = DRIVE, ‘B” 
nm |[ERA # |DISC & |REN 

5 ITAPE.IN = |A # |IUSER 

m [ITAPE.OUT = |B = |CPM 

# |TAPE 


Cf. Chapitre CPC 6128. 
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COMMANDES ACCESSIBLES SOUS CP/M 2.2 


# DIR u ERA # CLOAD 
m DISCCOPY ms STAT m CSAVE 
nm FORMAT = PIP # SET UP 
m FILECOPY nm TYPE … AMSDOS 
m COPYDISC Æ REN 


L'accès à CP/M se fait en frappant “ICPM”. Un “type” est attribué à la plupart des 
fichiers. Par exemple, lorsqu'un programme BASIC est sauvegardé par SAVE “PROG. 
le type “.BAS” lui est affecté ; le nom du fichier pour CP/M est “PROG.BAS". 


Ceci permet de regrouper les fichiers par famille. Les types les plus courants sont : 


BAS BASIC 

BIN BINAIRE 

.BAK SAUVEGARDE 
COM COMMANDE 


Pour référencer une famille de fichiers, il suffit de Spécifier le signe “*” à la place du 
nom. 


Les commandes DIR, ERA, REN, TYPE sont exécutables sans la disquette CP/M. Les 
autres commandes doivent être présentes sur la disquette lorsqu'elles sont appelées. 
Vous pouvez recopier certaines commandes de la disquette CP/M sur votre disquette 
de programmes. L'exécution d'une commande est annulée en frappant CTRL/C. 


|; | PSS 


Affiche la liste des fichiers d'une disquette. 


IDIF affiche la liste de tous les fichiers de la disquette du lecteur A; 

DIR *%. HAS affiche la liste des fichiers du type “. BAS”. 

DIF E: affiche la liste des fichiers de la disquette du lecteur B: 
A>DIR 
A: MOVCPM COM : PIP COM : SUBMIT COM : XSUB COM 
h: ED COM : ASM COM : DDT COM ; LOAD COM 
A: STAT COM : DUMP COM : DUMP BSM : AMSDOS COn 
f: FILECOPY COM : SYSGEN COM : EBOOTGEN COM : COPYDISC COM 
A: CHKDISC COM : DISCCOPY COM : DISCCHK COM : SETUP COM 
A: FORMAT COM : CSAVE COM : CLOAD COM : EX1 BAS 
A: EX2 BAS : ROINTIME DEM : RITDEMD BIN : DISC BAS 


À > 
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DISCCOPY 





Copie une disquette sur une autre avec un seul lecteur de disquette. La 
disquette “destination” n’a pas à être formatée. Placer la disquette CP/M et frapper 
"DISCCOPY”. Placer ensuite la disquette source à recopier et appuyer sur une touche. 


R?DISCCOPY 


DISCCOPY V2.0 


Please insert source disc into drive 4 then press any key: 
Copying started 
Reading track 0 


Reading track Î 
Reading track 
Reading track 
Reading track 
Reading track 


= En Lx Ca dl) 


Reading track 
Reading track 7 
Please insert destination disc into drive À then press anv key: 
Writing track 0 
Writing track 1 


La Sauvegarde est faite par groupes de 8 pistes. Vous devez alternativement placer 
les disquettes “source” et “destination” dans le lecteur. 


FORMAT 





Permet de “formater” une disquette vierge. Placer la disquette CP/M contenant le 
fichier FORMAT.COM et frapper : 


FORMAT 


Placer ensuite la disquette vierge dans le lecteur et appuyer sur une touche quel- 
conque. La disquette formatée est alors utilisable par AMSTRAD. 


FILECOPY nom-fichier 





Copie un fichier ou un groupe de fichiers d'une disquette “source” vers une disquette 
“destination”. La disquette destination doit être formatée. 


Placer la disquette CP/M dans le lecteur et frapper FILECOPY. Placer ensuite la dis- 
quette source contenant les fichiers à recopier. 
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A?FILECOPY +#,BAS 
FILECOPY V2,1 


Flease insert SOURCE disc into drive À then press any kev:_ 
fabiqguous file name: Confirm individual files {Y/N) 9 y 


EX1 HAS Copy {Y/N) 7 Y 
EX 2 .B8S Copy {Y/N) 7 K 
BISC BAS Copy (Y/N) 7 Y 
X X .BËS Copy (Y/N) 7 KN 


Copving started, , . 


Fiease insert DESTINATION disc into drive À then press any key: 


COPYDISC 


020220202222 


Copie une disquette du lecteur A: vers le lecteur B: 


ERA nom-fichier 


oo 
Efface un fichier ou un groupe de fichiers. 


ER FROG, BAS efface le fichier PROG.BAS. 


ERA +%,HAS efface tous les fichiers du type .BAS. 
ERE #,+x efface tous les fichiers. 
STAT 


222202022222 


Fournit les caractéristiques des fichiers. 


STAT donne la place libre sur la disquette. 
A?STAI 
À: R/0, Space: Säk 
BTAT +, % donne les caractéristiques de tous les fichiers. 


A?STAT #,x 


hecs Bytes Ext Acc 
2 tk 1 R/W A:AMSDOC, COM 
64 B&k 1 R/H ÀA:ASM,COM 
10 2k 1 R/W &:BOOTGEN, COM 


STAT 


STAT 


a TAT 


OTAT 


_*#,. HAS 


#. COM 


k, COM 


#, CON 


# \ COM 
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donne la liste pour les fichiers du type .BAS. 


ASTAT *,BAS 


Kecs 
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ii 
3 
4 


Bytes Ext Acc 
20K 2 R/K ÀA:DISC.BAS 
2k j R/WN À:EX1.BAS 
1k 1 R/W ÀA:EX2,BAS 
LKk | R/H k:XX.BAS 


Bytes Remaining On 4: S4k 


ER 40 


FR / 


FSYS 


FOI 


PIP destination=source 


les fichiers du type “COM” ne peuvent être supprimés. 


A>STAT +,CO0M $R/0 


MOVCPH,COM set to R/0 
PIP.COM set tn R/0 
SUBMIT.COM set to R/9 
XYSUB,COM set to R/0 


les fichiers du type “COM” peuvent être supprimés. 


A'218T +,C0M #R/NW 


MOYCPM,CONM set to R/W 
PIP.COM set to R/4 
SUBNIT.COM set to R/W 


les fichiers du type “COM” n'apparaissent plus lors d'une 
commande DIR. 


R?STAT +,C0M $SYS 


MOVCPMH.COM set to SYS 
PIP.COM set to SYs 
SUEMIT.COM set to SYSs 
XSUR,COM set to SYS 


les fichiers du type “COM” apparaissent à nouveau lors 
d'une commande “DIR”. 


AISTAT #,CO0M SDIR 


MOYCEPNM,COM set to DIR 
PIF,.COM set to DIR 
SUEMIT.CON set to DIR 
ESUB.COH set to DIR 





Permet de copier un ou plusieurs fichiers. 


PIF COPFIESEX1, BAS 


copie le fichier EX1.BAS sous le nom de COPIE, 
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Les périphériques peuvent être considérés comme des fichiers : 


LST: IMPRIMANTE 

CON: CLAVIER ET ECRAN 

RDR: INTERFACE SERIE ENTREE 
PUN: INTERFACE SERIE SORTIE 


Ci-dessous, le fichier LETTRE.TXT est affiché sur l'imprimante. 


R>PIP LST:=LETIRE.TAT 


Cher Monsieur 
Veuillez trouver ci joint..... 


Ci-dessous, nous frappons une lettre au clavier. Les sauts de ligne sont obtenus en 
frappant CTRL/. Pour terminer, frapper CTRL/Z. 


R>PIP LETTRE.TXT=CON: 


CHER MONSIEUR 
VEUILLEZ TROUVER CI JOINT ... 
°û 


R?TYPE LETTRE.TXT 


CHER MONSIEUR 
VEUILLEZ TROUVER CI JOINT ..., 


TYPE nom-fichier 





Affiche à l'écran le fichier spécifié. 
TYPE LETTRE. TXT 
Un programme BASIC ne peut être affiché que s'il a été sauvegardé en ASCII. 


REN nouveau nom=ancien nom 





Change le nom d'un fichier. 
REN Y.BAS=X.BAS 
Le fichier X.BAS devient Y.BAS. 
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CLOAD “nom-fichier-cassette” nom-fichier-disquette 


Copie un fichier cassette sur disquette. Le fichier doit être du type ASCII. Un program- 
me doit avoir été sauvegardé par “SAVE “nom”,A”. 


A?CLOAD "" XX.TXT 


CLO&D V2, 


CLOAD V2,0 finished 


Un programme BASIC sur cassette ou un fichier binaire peuvent être copiés sous 
BASIC en utilisant ITAPE.IN et LOAD“”. 


CSAVE nom-fichier-disquette ‘“nom-fichier-cassette” 


Copie un fichier ASCII disquette sur cassette. 


SET UP 





Permet d'afficher et de changer les paramètres définis pour le système AMSTRAD. 


Ci-dessous, nous avons défini une commande (STAT) qui est exécutée à chaque fois 
que CP/M est activé. 


“ 1 M” définit le caractère retour-chariot. 
A >SETUP 


SETUPF V2.0 
#+# Initial command buffer empty 


Is this correct (Y/N)s _N 


Enter new initial command buffer: STATAM 
Initial command buffer: 


STATS 
Is this correct {Y/N): YSiqgn-on string: 


Is this correct (Y/N): Y 
Do you want to update vour svstem disc (Y/N}: Y 


AMSDOS 





Cette commande provoque le retour au BASIC, 


166 | BASIC AMSTRAD 


CARACTERES DE CONTROLE CP/M 





CTRL/C interrompt l'exécution d'une commande. 

CTRL. /J saut de ligne. 

CTRL/M retour en début de ligne. 

CTAL/F provoque l'affichage sur imprimante. 

CTRL./S suspend l'exécution d'une commande qui se poursuit en appuyant 
sur une touche. 


CTAL 2 définit la fin d'un fichier. 
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Le BASIC du CPC 6128, identique à celui du CPC 664, est très proche de celui du 
CPC 464. Il comporte quelques instructions supplémentaires. 


Pour être en mesure de sauvegarder vos programmes BASIC, vous devez lire l'intro- 
duction de ce chapitre. 


INTRODUCTION 


Lorsque vous mettez le CPC 6128 sous tension, le message suivant apparaît : 


Anstrad 128K Microcomputer (v3) 


A S E 


F1985 Amstrad Consumer Electronics pic 
and locomotive Software Ltd, 


BASIC 1,1 


Ready 


La disposition de certaines touches du clavier diffère de celle du CPC 464. La touche 
ENTER du CPC 464 devient RETURN sur CPC 6128. La touche ENTER du CPC 6128 
est équivalente à celle du pavé numérique sur le CPC 464, 
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N 


PROTECTION ÉCRITURE 


CAT 


commande “CAT” 


CAT 
Drive À: user 
AMSDOS ,COM 


BANKMAN ,BAS 
BANKMAN .BIN 
CIOCPM3 ,EMS 
DATE . COM 
DEVICE ,COM 
DIR «- CON 


23K free 


Pour sauvegarder vos programmes, vous devez d'abord “formater” 
Pour cela, accédez à CPM Plus en fra 


@). 


Ensuite, frappez “DISCKIT3” (avec la disquette CP/M Plus 
raît, placez votre disquette vierge à formater dans le lecteur 


0 


1K 
1K 
2K 
25K 
sk 
BK 
15K 


DISCKIT3.COM 
ED « COM 
ERASE . COM 
GET , COM 
KEYS - CCP 
KEYS « WP 

LANGUAGE, COM 


CPR Z 


CP/M Flus Amstrad Consumer Ele 


&K 
10K 
ak 
7k 
1K 


1K 


PALETTE ,COM 


PIP + COM 
PROFILE .ENS 
PUT COM 
RENAME ,.COM 
SET : COM 


SET24X80.C0M 


V 1,0 ,61 TPA , 1 disc drive 


A>DISCKIT3 





À CPM PLUS 


oo 


Vous êtes sous BASIC. Placez la dis 


ik 


9K 


LK 
7K 
3K 
L1K 
1K 


ctronics plc 


quetie CP/M Plus dans le lecteur de disquette. La 
VOUS permet d'afficher la liste des fichiers de la disquette. 


SETDEF ,.CON  4k 
SETKEYS .COM  2K 
SETLST .COM  2K 
SETSIO ,COM  2K 
SHOW COM  9K 
SUEMIT ,.COM  &6K 
TYPE COM  3K 
une disquette vierge. 


ppant “ICPM” (le signe | s'obtient avec SHIFT 


). Un premier menu appa- 
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Assurez-vous que la protection écriture de la disquette n'est pas activée. 
Appuyez sur la touche “f4” qui vous permet de choisir le mode “format”. 
Un second menu apparaît : 


0 O0 0 


system format 
data format 


vendor format 
exit menu 





C Appuyez sur la touche “f6”. 
D Le message ci-dessous apparaît : 


format as data 


Any key to exit to menu 


Appuyez sur “Y” pour confirmer (Y=yes). 

Les numéros des pistes formatées défilent en haut à gauche de l'écran. 

Lorsque les 40 pistes de la disquette sont formatées, le message “REMOVE DISC” 
apparaît. 

D Enlevez votre disquette et appuyez sur une touche quelconque pour revenir au 
menu principal. Appuyez alors sur “f0” pour revenir à CP/M Plus. 


0 0 O0 


Vous pouvez désormais sauvegarder des programmes sur votre disquette. Pour re- 
venir au BASIC, placez la disquette CP/M Plus et frappez “AMSDOS”. 


SAVE “nom-programme” 
LOAD “nom-programme” 





La commande "SAVE" sauvegarde sur disquette le programme en mémoire centrale. 


La commande “LOAD” permet de le transférer de la disquette vers la mémoire centrale. 


19 PRINT "AMSTRAD" 
20 PRINT "CPC6128" 


SRVE "ESSAI" 
NEW 

LOAD "ESSAI" 
LIST 


iQ PRINT "AMSTRAD" 
29 PRINT "“CPC£138" 
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Le programme est sauvegardé avec le type “ BAS” et s'appelle en réalité 
"ESSAI.BAS”". Pour l'effacer, vous devrez spécifier le nom suivi du type. 


Lorsqu'un programme est sauvegardé une seconde fois, l'ancienne version est sau- 
vegardée avec le type “.BAK”. Pour l'effacer, frapper : 


(ERA, “ESSAI.BAK" 
Comme sur cassette, un programme peut être sauvegardé en ASCII par : 
SAVE “non-programme”, A 
(cf. chapitre commandes). 


Nous vous conseillons de dupliquer la disquette CP/M sur une autre disquette (avec 
l'option COPY de DISCKIT3). 
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COMMANDES ACCESSIBLES SOUS BASIC 
6128 et 664 


m CAT 


m IDISC.IN 5 |IDRIVE, “A” 
m DIR m IDISC.OUT # IDRIVE,‘“B” 
# |ERA m DISC #= |IREN 
nm |ITAPE.IN = |A x |USER 
m ITAPE.OUT 8 |B s |ICPM 
um ITAPE 


Toutes ces commandes (sauf CAT) doivent être précédées du signe “l”. Si vous dis- 


posez d'un second lecteur de disquette, celui-ci doit être spécifié par “B:" devant le 
nom du fichier. 


Les commandes peuvent être incluses comme instructions dans un programme. 


Se 


Donne la liste des fichiers d'une disquette. 


DIR 





Donne la liste des fichiers d'une disquette. 


DIF donne la liste des fichiers de la disquette du lecteur A: 
DIR ,''+,fAS" donne la liste de tous les fichiers du type “.BAS”. 

DIR ,"Bs" donne la liste des fichiers de la disquette du lecteur “B:”. 
IDIR ,"+#,BAS" 


Drive À: user 


EPSON BAS  DERR . BAS CURSOR .BAS  SQGUASH ,BAS FDIS « BAS 
H3D «BAS  COPYCHR$.BAS  HISTB BAS  MASK «BAS FILL « BAS 
TD - BAS  GPAPER ,.BAS GPEN BAS DEC -BAS  LOCO . BAS 


HISTC ,BAS IMMEUBLE.BAS MAISON .BAS ETOILE .BAS  TAG1  .BAS 
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ERA, “nom fichier” 





Efface le fichier ou le groupe de fichiers spécifiés. Le type doit être spécifié. Si vous 
avez Sauvegardé un programme BASIC par SAVE “ESSAI”, vous devez frapper : 


[ERA ,"ESSAI.BAS" 


ERA , "FROG. HAS" efface le programme “PROG”. 

[ERA ,"#, BAS" efface tous les fichiers du type “.BAS”. 
[ERA ,"K.*#" efface tous les fichiers. 

ITAPE.IN 





Permet de lire un programme ou un fichier binaire d'une cassette. Frappez “ITAPE.IN” 
puis “LOAD “nom-programme”” : 


Ready 

|TAPE,IN 

Ready 

LOAD nu # 

Press PLAY then any key: 


Après avoir sauvegardé le programme sur disquette, frappez “|DISC.IN” pour accéder 
au disque en lecture. 


Pour accéder à un fichier séquentiel sur cassette par programme, inclure “ITAPE.IN” 
dans le programme. 


10 ITAPE.IN 
20 OPENIN "FICH” 


nm 2 og me 


Pour sauvegarder un programme ou la mémoire sur cassette, frappez “TAPE.OUT" 
puis “SAVE “non-programme””. 


ITAPE.OUT 
SAVE “PROG” 


ITAPE 





Est équivalent à “TAPE.IN” plus “ITAPE.OUT". 
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IDISC.IN 





Annule “|TAPE.IN" et permet ainsi de référencer le lecteur de disquette en lecture. 


IDISC.OUT 
Annule “ITAPE.OUT”. 





I 
Est équivalent à “IDISC.IN” plus “IDISC.OUT”. 


A LL me 


Définit le lecteur “A:"” par défaut. 


I 


Définit le lecteur “B:" par défaut. 


I 


Définit le lecteur “A:” par défaut. 


IDRIVE ,“B:” 





Définit le lecteur “B:" par défaut. 


IREN ‘nouveau nom’ ,‘“ancien nom” 





Change le nom d'un programme. 


IREN ,"Y.BAS”,"X.BAS” 


RS 


Permet de définir plusieurs catalogues sur une disquette. Les catalogues sont repérés 
par des numéros allant de 0 à 15. Le numéro par défaut est égal à 0. Ci-dessous, nous 
listons les fichiers du catalogue numéro 2. 
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JUSER ,2 

Ready 

[DIR 

Drive 8: user 2 
CECRAN .BÀ8S 


S2K free 


ICPM 


> 


Provoque le passage sous CP/M. 
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UTILISATION DU SECOND BLOC MÉMOIRE 


BASIC n'utilise que 64 k de la mémoire centrale. Les 64 k restants sont utilisés comme 
“banque de données” ou pour la sauvegarde de l'écran. 


BANQUE DE DONNÉES 


La “banque de données” est découpée en “enregistrements” auxquels on accède par 
un numéro. La longueur des enregistrements ne doit pas excéder 255 caractères. 


DUPONT 
MARTIN 


BALU 


D ND = © 





{— |ONQUEUT ——- 


| BANKOPEN longueur enregistrement 


BANKOPEN définit la longueur des enregistrements. 
IBANKOPEN, 50 


| BANKWRITE ,(@code retour,chaîne,numéro enregistrement 


Ecrit la chaîne spécifiée au numéro d'enregistrement indiqué. Le code retour prend 
une valeur égale au numéro d'enregistrement si l'opération s'est bien déroulée. 


— 1 indique que la taille des données dépasse 64 k. 
— 2 indique une erreur de changement de bloc. 


| BANKREAD ,(@code retour,chaîne,numéro enregistrement 


Lit l'enregistrement indiqué dans la chaîne spécifiée. Le code retour prend les mêmes 
valeurs que pour l'écriture. 


Ci-dessous, nous écrivons trois noms dans la banque de données. Ensuite, nous re- 
cherchons le contenu des enregistrements. 
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Pour utiliser la banque de données, il est nécessaire de faire RUN “BANKMAN". Na- 
turellement, le programme “BANKMAN.BAS” doit être présent sur la disquette. La 
variable code retour (R) doit être initialisée. 


10 ‘ ESSAI BANKHAN 


20 

30 FAIRE RUN "BANKMAN" AVANT D'UTILISER CE PROGRAMME 
45 

J9 MODE 2 

60 ‘ememme-e-mmmemmmesmmm— ECRITURE 

10 3 BANKOPEN ,58 " longueur=50 

BG R4=0 

90 A$="DUPONT Jean 044-22-43":N=t  enreg 10 i 

100 A$=LEFT#S(A$+SPACES (30) ,30) " normalisation 


110 SBANKHRITE .,€&R%,85$,N 

129 AS=" MARTIN Daniel 333-44-564":N=3 ‘ enreg no 2 
150 A$=LEFTHF(AS+SPACES(30),30) 

140 :BANKWRITE ,8RY%,4#,N 

159 ÀA$="BALU Thierry 555-44-77":N2z3 " enreg n0 
160 A$=LEFTÉS(A$+SPACES (30) ,30) 

179 :BANKRURITE ,8R%,A#$.N 

189 ‘----- 2 LECTURE 

190 :BANKOPEN ,50 

200 

210 INPUT "QUEL NUMERO ENREG (0 POUR FIN) ‘“:N 

220 IF N=06 THEN END 

230 B$=SPACES$(30! 

240 RA=Û 

2130 :BANKREAD ,88R2,B$,N 

209 PRINT E$f,R? 

270 GOTO 210 


GQUEL NUMERO ENRES (OQ POUR FIN) 7% 2 


MARTIN Daniel 5535-44-56 2 
QUEL NUMERC ENREG {0 POUR FIN) 7? 1! 
DUPONT Jean 044-272-8483 l 


QUEL NUNERD ENRES (COQ POUR FIN! 7? +#Breakx 


| BANKFIND ,@code retour,chaîne.début recherche.fin recherche 


Donne dans la variable “code retour” le numéro d'enregistrement contenant la chaîne 
cherchée, si elle existe. 


Si la chaîne cherchée n'existe pas, le code retour est égal à —3. 


O 1 indique un dépassement du bloc de 64 k. 
0 2 indique une commutation de bloc, 


175 ‘ ajouter instructions 10 a 170 du (ras precedent 
190 RECHERCHE AVEC BANKFIND 
190 :BANKOPFEN ,50 


200 
210 INPUT "QUEL Nom (enter POUR FIN) ":8H# 
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220 IF LEN(B$)=0 THEN END 


230 RY=0 

240 !BANKFIND ,@R%,H#,0,100 ‘ entre 0 et 100 
250 IF RX€0 THEN PRINT "N'EXISTE PAS" ,R#:G0TD 210 
260 N=R? 


270 B$=SPACES (30) 

280 !BANKREAD ,8R%,B#.N 
290 PRINT B$,N 

300 G0TO 210 


BUEL Non (enter POUR FIN) ? MART 
MARTIN Daniel 3353-44-58 
QUEL Nom {enter POUR FIN) ? DUP 


DUPONT Jean 044-22-283 
QUEL Nom (enter POUR FIN) ? 


SAUVEGARDE D'ÉCRAN 


La mémoire supplémentaire de 64 k peut être utilisée pour sauvegarder rapidement la 
mémoire écran de 16 k (1/2 seconde). Ainsi, quatre écrans différents peuvent être 
sauvegardés et restitués plus rapidement que s'ils avaient été sauvegardés sur disque. 


Avant d'utiliser le bloc mémoire de 64 k, pensez à faire RUN “BANKMAN". 


| SCREENCOPY écran ou bloc dest,écran ou bloc source 


L'écran est référencé par le numéro 1. Les quatre blocs mémoire de sauvegarde sont 
repérés par les numéros 2, 3, 4, 5. Essayez en mode direct : 


RUN “HANKMAN" 


PRINT SECRAN NUMERO!" 


IOCREENCOPY ,7.1i ” Sauvegarde ecran dans bloc 2 
CLS  gffacement ecran 
I SCREENCOPFY .1.2 " restitution bloc 2 dans ecran 


Ci-dessous, les commandes sont incluses comme instructions dans un programme. 


JO mm ——— essai SCREENCOPY 
26 ‘ faire RUN "RANKMBN" avant 

50 ” 

50 MODE 7 


20 FOR i=1 TO 20 
60 PRINT "ECRAN NUMERO 1* 


70 NEXT à: 

80 :SCREENCOPY ,2,1 " Sauvenarde ecran dans bloc? 
90 FOR tp=i TO 1GO0:NEXT tp 

160 CLS 


110 FOR tp=1 TO 1000:NEXT tp 
120 :SCREENCOPY ,i,2 " bloc? vers ecran 
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ISCREENCOPY ,zone.écran ou bloc dest,écran ou bloc source 


Le paramètre “zone”, compris entre 0 et 63 peut être ajouté. Dans ce cas, seule la 
zone de 256 octets spécifiée est sauvegardée. 


Ci-dessous, nous utilisons une boucle pour sauvegarder les 64 zones de 256 octets 
de l'écran : 


16 FOR 2=0 TO 63 
20 ISCREENCOPY 7,3,i 
30 NEXT Z 


Le programme ci-dessous dessine un cercle plein qui est sauvegardé dans le bloc 5. 
Un second cercle plein est sauvegardé dans le bloc 4. Les deux cercles sont ensuite 
affichés alternativement. 


19 ‘ essai screencopy 

29 ‘ faire run "bankman" avant 

50 : 

40 MODE 1:INK OQ,1:INK 1,20 

J0 XC=100:YC=300:R=30:CE=1:60SUE 170 ‘ jer cercle 


80 :SCREENCOPY ,5,i " Sauvegarde dans 5 
70 CLS 

80 XC=400:YC=100:R=30:CE=1: GOSUR 170 ‘ 2eme cercle 

70 ISCREENCOFY ,4,1 sauvegarde dans 4 
100 affichage alterne 


110 FOR TP=1 TO 1000:NEXT TP 
129 :SCREENCOPY ,1,5 

130 FOR TP=1 TO 1000:NEXT TP 
140 :SCREENCOPY ,1,4 

150 GGTO 110 

160 cercle 
176 R2=R%#R 

180 FOR DX=-R TO R 

190 DY=SOR(IR2-(DX#DX)) 

200  PLOT XC+DYX.YC+DYs:DRAU AC+DX,YC-DY.CE 
219 NEXT DX 

220 RETURN 





ISCREENSW AP ,zone.écran ou bloc.écran ou bloc 
Permet d'échanger l'écran et un bloc de 16 k. Essayez en mode direct : 


PRINT "ECRAN NUMERO" 
ISCREENCOPY ,2,1 


CLS 
PRINT "ECRAN NUMERO 2" 


: SCREENSHWAP ,1,2 
ISCREENSWAF ,1,2 
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COMMANDES ACCESSIBLES 
SOUS CP/M PLUS 


= DIR m TYPE # SET 8 LANGUAGE 
æ DISCKIT3 = PIP # SETDEF m DATE 

nm ERA # SETKEYS 5 SHOW sm SUBMIT 

m RENAME nm SETLST # PALETTE = AMSDOS 


Pour accéder à CP/M Plus, vous devez placer la disquette CP/M Plus dans le lecteur 
de disquette. Ensuite, vous frappez “|ICPM". Le fichier “.EMS” est alors chargé en 
mémoire. S'il existe un fichier “PROFILE.SUB”, les commandes de ce fichier sont 
exécutées automatiquement. 


Un type est attribué à la plupart des fichiers. Ceci permet de les regrouper par famille. 
Les types les plus courants sont : 


BAS BASIC 

BIN BINAIRE 

.BAK SAUVEGARDE 
COM  COMMANDES 


Pour référencer une famille de fichiers, il suffit de spécifier “+” à la place du nom. “?” 
peut remplacer une lettre indéterminée. 


Les commandes DIR,ERA,REN,TYPE sont exécutables sans la disquette CP/M. Les 
autres commandes doivent être présentes sur disque lorsqu'elles sont appelées. Vous 
pouvez recopier certaines commandes de la disquette CP/M sur votre disquette de 
programmes (avec FILECOPY CPM 2.2). 


L'exécution d'une commande est annulée en frappant CTRL/C. 


DIR ——— 
Affiche la liste des fichiers d’une disquette. 


DIR affiche la liste de tous les fichiers de la disquette du lecteur A: 
DIR +*.BAS affiche la liste des fichiers du type “.BAS" 
DIRSYS affiche la liste des fichiers systèmes 
DIR [FULL] affiche la taille des fichiers 
Nsne Bytes Recs fttributes Nage Bytes ReCS éttributes 
ANSDQS COM ju 8 Dir R4 BANKHAN BAS 1k 7 Dir RH 
BANKMAN  BIN 2x 12 Dir RY CI1OCPM3 EMS 25k 209 Dir RH 


DATE con 3k 25 Eir RK DEVICE COM Bk 38 Dir RH 
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DISCKIT3 





Cette commande permet de formater, de copier ou de vérifier une disquette (pour une 
copie d'un seul fichier, cf. FILECOPY CP/M 2.2). 


Le formatage ayant déjà été traité dans la partie initiation, utilisons cette commande 
pour copier une disquette sur une autre (vierge ou non). Placez la disquette CP/M Plus 
dans le lecteur et frappez “DISCKIT3" : 

A>DISCKIT3 


Un premier menu apparaît. Placez la disquette source à copier dans le lecteur. 





0 Appuyez sur la touche “f7" qui vous permet de choisir le mode “copy”. 
D Le message suivant apparaît : 


0 Appuyez sur “Y” (Y=yes) pour confirmer. 

n Les ir premières pistes de la disquette source sont alors lues en mémoire 
centrale. 

O0 Le message “INSERT DISC TO WRITE" est envoyé. Placez alors la disquette “des- 
tination” dans le lecteur. Le système transfère les quinze premières pistes. 

Q Le programme vous demande de placer à nouveau la disquette source dans le 
lecteur pour lire les quinze pistes suivantes de la disquette source (INSERT DISC 
TO READ), etc. 

S Lorsque la copie est terminée, le système envoie le message. 


COPY COMPLETED 
REMOVE DISC 
PRESS ANY KEY 


Enlevez la disquette et appuyez sur une touche quelconque. 


Si vous désirez effectuer une autre copie, appuyez sur “Y”, sinon appuyez sur une 
touche quelconque pour revenir au menu et appuyez sur la touche “f0” pour terminer. 





ERA nom fichier 

Efface un fichier ou un groupe de fichiers. 

ERB XX.BAS efface le fichier XX.BAS 

ERA +.2fAKk efface tous les fichiers du type .BAK 


ERA #,%# efface tous les fichiers 
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RENAME nouveau nom=ancien nom 





Change le nom d'un fichier. 


RENAME PROFILE, SUB=PROFILE,ENG 


Le fichier PROFILE.ENG devient PROFILE.SUB. 


TYPE nom fichier 





Affiche à l'écran le fichier spécifié. 


TYPE KEYS.CCP 


PIP nom fichier destination,nom fichier source 





Copie un ou plusieurs fichiers (si vous n'avez qu'un seul lecteur, PIP ne permet pas le 
transfert d'une disquette sur une autre). 


FIF XX=KEYS,CCP copie le fichier KEYS.CCF 
sous le nom de XX. 


Les périphériques sont considérés comme des fichiers. Par exemple : 
FIF LST:=KEYS, CCF 


édite sur imprimante le contenu du fichier KEYS.CCP. 


Les noms des périphériques sont : 


LST: imprimante 

CON: clavier et écran 

AUX: entrée et sortie auxiliaires 

PRN: imprimantes avec options (tabulation, saut de page). 


Pour entrer des commandes dans un fichier, vous définissez le clavier comme fichier 


source avec "CON:”. Après avoir frappé la commande PIP, vous frappez les commandes 
à placer dans le fichier. 


Lorsque vous appuyez sur la touche RETURN à la fin de la commande, il n'y a pas de 


saut de ligne mais seulement un retour en début de ligne. Appuyez sur CONTROL 
pour obtenir un saut de ligne. 


CONTROL/Z vous permet de définir la fin du texte. 
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?PIP PROFILE,SUR=CON: 
SETKEYS KEYS.CCPF (puis RETURN) 


CTRL/J (pour saut ce ligne) 
DIR 

CTRL/I 

CTRL/7 (fin de fichier) 


_ PIP peut être utilisé d'une autre façon. Vous frappez PIP puis RETURN. Le système 
envoie un “*”. Vous frappez alors le nom du fichier destination et du fichier source. 


PIP 


*XX=KEYS,.CCP (puis RETURN) 
CONTROL/C 


SETKEYS nom fichier 





Permet de redéfinir certaines touches du clavier. Remplissez avec PIP (ou en BASIC) 
un fichier KEYS.ESSAI avec : 


E128"DIR TM” 
et faites SETKEYS KEYS.ESSAI 


À chaque fois que vous appuyez sur la touche de fonction “f0” (numéro 128), la 
commande “DIR” est exécutée. 


La disquette CP/M Plus contient un fichier KEYS.CCP. 


A>TYPE KEYS.CCP 

O NS C "S°#1F°" CCP cursor up 
1 NS "°F" Cursor right 

L CS #9E"" 

2 NS C “*'"#iE'" cursor down 
8 NS "SA" cursor left 

D € EE" 

3 NS C “°H" copy 

15 ES "6" eir 

14 C nus: “9 

18 C "*E*" enter 

66 NS "*"27"" peser 

Ë à C NE 


+ D: "57 de! 

E #8C "SR" ctr1l enter 
FE £CE ÉECRT 

E #9F "SFSRSE" 


Si vous avez exécuté la commande SETKEYS KEYS.CCP, les touches ont les fonc- 
tions suivantes : 


CONTROL/4 ou <- curseur à gauche 
CONTROL/H ou CONTROL/<- curseur en début de ligne 
CONTROL/C ou CONTROL/ESC arrêt exécution 


CONTROL/E ou CONTRL/RETURN retour en début de ligne 
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CONTROL?FE ou => curseur à droite 
CONTROL/G ou CLR supprime le caractère sous le curseur 
CONTROL/H ou DEL supprime le caractère à gauche du curseur 
CONTROL/I ou TAB curseur à la tabulation suivante 
CONTROL /J valide la ligne frappée 
CONTROL/K ou CONTROL/CLR supprime la fin de la ligne 
CONTROL/M ou RETURN valide la ligne frappée 
CONTROL /F copie sur imprimante et annulation 
(en bascule) 
CONTROL/ Reprise de l'affichage 
(suspendu par CTRL/S) 
CONTROL/R ou CONTROL/ENTER refrappe la commande 
CONTRGL/S ou ESC suspend l'affichage 
CONTROL/W ou COPY affiche la dernière commande frappée 
CONTROL/X ou CONTROL/DEL supprime les caractères du début de ligne 
jusqu'au curseur 
CONTROL /7Z fin de texte. 
SETLST nom fichier 





Permet d'initialiser l'imprimante en lui envoyant des codes. Le fichier spécifié doit 
contenir : 


T ‘code caractère’ 
ou T caractère 
ou T nom de code (FF, ESC....). 


Par exemple, sur EPSON, pour obtenir des caractères condensés, il faut envoyer à 


l'imprimante le caractère de code 15 (f ‘15'). Si le fichier contenant le caractère 
s appelle “CONDENSE”, frappez la commande : SETLST CONDENSE. 


SET nom fichier 


Change l'attribut des fichiers. 


SET +#.COM (RO) Les fichiers .COM ne peuvent être modifiés ou détruits 
(Read Only) 

SET +.C0H CRHI Les fichiers peuvent être modifiés ou détruits (Read Write) 

SET #.COM [SYS] Les fichiers .COM n'apparaissent plus qu'avec DIRSYS. 

SET +*#.COM CDIRI Les fichiers .COM apparaissent avec la commande DIR. 


SETDEF [PAGE] ou [NOPAGE] 


Le défilement à l'écran se fait par page ou en continu. 
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SHOW 





Affiche les caractéristiques de la disquette. 


SHOW CDRIVE] 
SHOW CLABEL] 
SHOW CUSER] 

SHOW [DIR] 


B>SHOW TDRIVE] 


A: Drive Characteristics 
1,368: 128 Byte Record Capacity 

171: Kilobyte Drive Capacity 
64: 352 Byte Directory Entries 
ë4: Checked Directory Entries 
128: Records / Directory Entry 

8: Records / Block 

36: Sectors / Track 

2: Reserved Tracks 
512: Bytes / Physical Record 


PALETTE fond. écriture: 
Modifie la couleur d'écriture et de fond (0 à 63). 


PALETTE 50,1 





LANGUAGE jeu caractère 


Définit le jeu de caractères (AMERICAIN, FRANCAIS, ANGLAIS....). LANGUAGE 1 
définit le jeu de caractères FRANÇAIS ; le e accent s'obtient avec “{“ et ”}”. 


LANGUAGE 1 FRANCAIS 
LANGUAGE 3 ‘ ANGLAIS 


DATE SET 
DATE 


DATE SET permet de définir le jour et l'heure. 
DATE affiche la date. 





SUBMIT nom fichier 

Exécute les commandes définies dans un fichier. 
SUBMIT PROFILE.ENG 

AMSDOS 





Provoque le retour à BASIC. 
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CRÉATION D'UN FICHIER PROFILE.SUB 


Lorsque CP/M Plus est active, les commandes du fichier PROFILE.SUB (s'il existe) 
sont exécutées. Le fichier PROFILE.SUB peut être créé en BASIC ou avec PIP ou bien 
encore avec un éditeur. 


CP/M 2.2 


Une disquette CP/M 2.2 est livrée avec le CPC 6128 (cf. chapitre “Le CPC 664”). 


Cette disquette contient notamment la commande “FILECOPY" qui permet de recopier 
un fichier d'une disquette sur une autre avec un seul lecteur. 


La commande “DISCKIT2” est l'équivalente de “DISCKIT3”. Elle permet de formater 
et de copier une disquette sur une autre. 


La commande “CLOAD” permet de recopier un fichier de données (ASCII) provenant 
d'une cassette. On pourra également utiliser le programme ci-dessous pour effectuer 
le transfert. 


IQ ‘ssmsmsuss TRANSFERT 
26 INPUT "Nom fichier “sN 
30 ITAPE.IN 

86 OPENIN "" 

00 OPENOUT NF# 

60 ‘ 

7Q IF EQF=-1 THEN CLOSEOUT:CLOSEIN:END 
GG LINE INPUT #9.l1:ig#$ 

90 PRINT #9,licf 

109 GOTO 70 


EURE 7-2 DISQUE 


Sur CPC 664, la disquette CP/M 2.2 est fournie avec FORMAT et DISCCOPY. 
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INSTRUCTIONS BASIC AMSTRAD 


CPC 6128 et 664 

mu PEN #5 MOVER 8 CUSOR 

um PLOT 8 FILL nm COPYCHRS 

m PLOTR 8m FRAME 5 DERR 

nm DRAW & MASK #5 ON BREAK CONT 
E DRAWR 5 GRAPHICS PAPER #s DECS$ 

sm MOVE H GRAPHICS PEN 


Certaines instructions du BASIC CPC 464 ont été améliorées : PEN, PLOT, PLOTR, 
DRAW, DRAWR, MOVE, MOVER. 


Des instructions ont été ajoutées : FILL, FRAME, MASK, GRAPHICS PEN, GRAPHICS 
PAPER, CURSOR, COPYCHRS, DERR, ON BREAK CONT, DECS$. 


PEN #fenêtre,stylo.mode 





Le paramètre “mode” a été ajouté à l'instruction PEN. Si “mode” est égal à 1, la 
fonction PAPER est inhibée. 


Ci-dessous, le message “AMSTRAD” est affiché sur la couleur de fond spécifiée par 


PAPER si “T” est égal à 0. En revanche, si “T” est égal à 1, la couleur de fond ne 
change pas. 


LÉ mme MODE TRANSPARENT 
20 MODE 1 

30 INK O,1:5INK 1,24:INK 2,20:INK 3,6 
à INPUT “O0 OÙ 1 M"3T 

50 PAPER 2 

6G PEN 1,7 

70 PRINT “AMSTRAD 864" 

80 PAPER 3 

90 PEN 1,7 

100 FRINT "AMSTRAD 4éa" 

110 PAPER 0 


PLOT X,Y,stylo,opération 
PLOTR DX,DY ,stylo,opération 
DRAW X,Y,stylo,opération 
DRAWR DX,DY,stylo,opération 





Le paramètre “opération” a été ajouté. Une opération XOR,AND ou OR est effectuée 
avant le tracé, 
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0 : nul 

1 : XOR (OÙ exclusif) 
2 : AND (ET) 

3 : OR (OU) 


Par exemple, si XOR (OU exclusif) est spécifié, l'ancien tracé (s’il existait) disparaît. La 
ligne 40 du programme ci-dessous trace une droite. La ligne 60 trace la même droite 
avec une opération XOR. Par conséquent, le tracé disparaît. 


10 soc z OR, XOR, AND 


30 INK O,1:INK 4,24 

19 PLOT 100,100,1:PDRAW 260,200,1 
50 FOR TF=1 TQ 1000:MEXT TP 

bG PLOT 100,190:DRAW 200,200 ,1,1 
70 G0TO 50 


MOVE X,Y,stylo,opération 
MOVER DX,DY ,stylo,opération 


Les paramètres “stylo” et “opération” ont été ajoutés aux instructions “MOVE” et 
“MOVER”. 


FILL stylo 


Remplit une figure avec la couleur du stylo spécifiée. Le curseur doit être positionné à 
l'intérieur de la figure avec MOVE ou MOVER. Le “stylo” spécifié dans MOVE doit être 


celui qui a servi au tracé de la figure. En revanche, le stylo spécifié dans FILL peut être 
différent. 


10 FIEL 
20 MODE ! 
30 CE=t * Couleur ecriture 


49 INK O,2Z6:INK 1,0:INK 2,20 
50 PLOT 100,100,CE 
60 DRAW 200,100,CE 
70 DRAW 200,200,CE 
80 DRAW 100,100,CE 


30. pese REMPLISSAGE TRIANGLE 

106 ‘ 

110 MOVE 1460,120,CE " Positionnement 
129 C=i * Stvlo rempiissage 
130 FILL C 

140 


159 ‘ La couleur de remplissace peut etre differente de ia couleur 
du contour 

160 ‘ ex:C=2 

120 

180 ‘Essaver en ajoutants125 ink c,1,24 
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MOVE 160,120 





Le programme ci-dessous dessine un cercle et remplit la moitié inférieure. 


LU “ses sue CERCLE 

20 MODE 1 

30 INK G,26:INK 1,0:INK 2,20 
40 XC=200:YC=200 : CENTRE 
20 R=60 " REYON 
GO meme CERCLE 


70 PLOT XC+R,YC 

80 FOR A=0 TO 2#P1+0,2 STEP 0.2 
90 X=XC+RxC0G (A) 

100 VY=YC+R#SIN(E) 

110 DRAW Y,v,1 


120 NEXT À 

130 DIAMETRE 

140 PLOT XC-R,YC:DRAUR R#2,0,1 

150 REMPLISSAGE DEMI CERCLE 
140 MOVER -5,-2:FILL 2 


Ci-dessous, nous représentons un demi-cercle plein en traçant un cercle “invisible” : 
la couleur d'écriture du stylo 2 est la même que celle du papier. 


Ensuite, nous remplissons la moitié supérieure du cercle. 


LG mme DEMI CERCLE PLEIN 
20 MODE 1 

30 INK O,1:INK 1,24:INK 2,1 

40 XC=200:YC=200 

50 R=460 

bQ CERCLE INVISIBLE 

70 PLOT XC+R,YC 

80 FOR a=0 TO ?#PI+0.2 STEP G.2 
90 X=YXC+R4#C08(4) 

100 Y=YC+RESIN(A) 

110 DRAW X,Y,2 


120 NEXT a 

199 ‘mme DIAMETRE 

140 PLOT XC-R,YC:DRAYWR Rx2,9 
199 REMPLISSAGE 


160 MOVER -5,+42:FILL 1 


Le programme “dessinateur” de la page 129 peut être amélioré en lui ajoutant l'ins- 
truction 355. 


En positionnant le curseur à l'intérieur d'une figure et en appuyant sur “P”, vous la 
remplissez. 
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L, “ns AJOUT PROGRAMME DESSINATEUR P 129 (CFCé64) 
355 IF C$="p" THEN MOVE X,Y,CE:FILL CE 

354 IF C+t="S" THEN SAVE "DES",B,8&C000,%4000 

357 IF C$="L" THEN LOAD "DES" 


Attention ! Le curseur doit avoir la couleur de la figure. 


Pour mélanger texte et graphique, ajouter les lignes 270 et 275. En frappant “#”, vous 
passez alternativement en mode texte et en mode graphique. 


274 IF C$r"#" THEN TT=ARGCITT-1):G0T0 130 
275 IF TI=1 THEN TAG:PLOT X,Y,L: PRINT C$;:X=X+16: TAGOFF:GOTQO 150 







LL ALL SG NE | à Bi à 


dirt" 





d" 


RTL il à 


FRAME 





Lorsqu'un caractère est affiché avec TAG, les “points” du caractère ne sont pas af- 
fichés simultanément. FRAME permet de synchroniser l'affichage des points. 


39 MODE ! 
30 INK O,1:INK 1,24 
20 GRAFHICS PAPER 0 


50 TAG 
650 FOR X=0 10 500 STEF 4 
79 FRAME " SYNCHRONISE 


69 MOVE X,200,1 
90 PRINT CHR#(32):;CHR$ (143); 
100 NEYXT + 


Essayez le programme ci-dessus sans FRAME. 


MASK masque,premier point 


Permet de tracer des pointillés suivant le “masque” spécifié. Si “masque” est égal à 
“11110000”, 4 points sur 8 seulement sont affichés. 


LU 1 BAIL AMD IRKRAL 


30 INK 0,26:INK 1,0 
40 GRAPHICS PAPER © Initialisation 


60 MASK &X11110000,1 
70 MOVE 100,100,1:DRAW 200,100 ,1 
80 MASK &X11110000,0 
99 MOVE 100,120,1:DRAW 200,120,1 


190 
119 ‘ L'instruction 40 est necessaire 
120 ‘ si GPAFER a deiz ete utilice 


Sr dd point” est égal à 1, il est affiché. Si “premier point” est égal à O, il n'est pas 
affiché. 


GRAPHICS PAPER papier 





Détermine la couleur du papier pour les graphiques ou le texte affichés avec TAG. Ci- 
dessous, les pointillés sont affichés sur fond bleu. 


EU rome mon GRAPHICS PAPER 
20 MODE 1 

30 FAPER O:PEN 1! 

40 INK O,26:INK 1,0:IKK 2,20 


bO MASK &X11100000 
70 GRAPHICS PAPER 2 
80 MOVE 100,100,1:DRAW 200,200,1 


76 
100 TAG:PRINT "COUCOU": 





GRAPHICS PEN stylo,mode 


Détermine le stylo par défaut pour les instructions graphiques. Si “mode” est égal à 1, 
l'effet de GRAPHICS PAPER est annulé. 


10 GRAPHICS PEN 
20 MODE 

39 PAPER O:PEN i 

40 INK O,1:INK 1,24:INK 2,20 


60 BRAPHICS PEN ? 
70 PLOT 100,100:DRAW 200,200 


79 LOCATE 10,10:PRINT “TEXTE"* 


Le programme ci-dessous affiche “TEXTE” sur la couleur du papier 2. Essayez le 
programme avec 50 GRAPHICS PEN 1,1. 
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te GRAPHICS PAPER ET FEN 
MODE 1 

INK O,1:INK 1,0:INK 2,20 

GRAPHICS PAPER 2 

GRAPHICS PEN ! 

MOVE 190,190 

TAG 

PRINT "TEXTE"; 


100 " ESSAYER AVEC:50 GRAPHICS PEN 1,1 


CURSOR mode 


Lorsque vous utilisez INKEYS, le curseur n'apparaît que si vous avez programmé 
“CURSOR 1”, “CURSOR 0” fait disparaître le curseur. 


20 
56 


COPYCHRS (+#fenêtre) 


mn CURSOR 

CLS 

LOCATE 10,10 CURSEUR EN 10,10 
CURSOR ! CURSEUR APPARENT 


C$=INKEVS:IF Cé="" THEN 50 
IF ASC(C$)=1Z THEN END 
PRINT Cf: 

GOTO 40 





Fournit le caractère à l'écran sous le curseur. 


9! PRESS ESS RE COPYCARS 

20 See 

39 LOCATE 10,0: PRINT "ABCRE" 
49 

30 LOCATE 10,10:XS$=COFYCHR#E (#0) 
60 


70 LOCATE 20,20:PRINT X$ 


: programme ci-dessous recopie sur imprimante le texte affiché à l'écran (en MODE 
2). 


LG COPIE ECRAN(TEXTE) 
20 FOR Lz=i TG 24 

30 FOR C=i TG 80 

40 LOCATE C,L 

dû C$= COPYCHR# (40) 

5Q FRINT #9,C$; 

70 NEXT C 

6G PRINT #8 

99 NEXT L 
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RS 


Fournit les codes erreur pour le disque. 


10 
20 
530 
£{) 
30 
60 
70 


ON ERROR GOTO 5û 

QPENIN "XX" 

END 

“ nitee in eme een Analyse erreur 
PRINT "ERR="3;ERR; "erl1=":ERL 


PRINT "DERR=":DERR 
IF DERR=148 THEN PRINT "FICHIER NON TROUVE":EMD 


CRE 


Empêche l'interruption de l'exécution d'un programme si l'opérateur appuie sur la touche 
ESC. Est annulé par ON BREAK STOP. 


10 ON BREAK CONT 
20 ” 


350 FOR I=1 TO i0û 
40 PRINT "APPUYER SUR ESC" 
uG MEXT I 


DECS$ (nombre.format) mt ns Le 


Fournit une chaîne de caractères avec le format spécifié. 


ADAPTATION DES PROGRAMMES P143,148,153 


ES esse DECS 

29 X=2 

30 X=67.8B 

40 X$= DECS(X,"##hR4. #4 ) 
30 PRINT X# 

60 ” 


79 "CF FRINT USINE 
67.980 





Le mode “FIN” ne provoque pas l'arrêt du programme après la sauvegarde des tables 
afin de permettre d'effectuer plusieurs sauvegardes sur cassette. 
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Pour une sauvegarde sur disquette, vous pouvez faire : 
P143: 160 IF M$="FIN" THEN GOSUB 500:END 
P148: 190 IF M$="FIN” THEN GOSUB 790:END 
P153: 200 IF M$="FIN" THEN GOSUB 980:END 


Sur CPC 664, LINE INPUT envoie un point d'interrogation après le message (contrai- 
rement au CPC 464). 


LISTE DES ERREURS DISQUE 





142 : état du canal non valable 

143 : fin de fichier physique 

144 : nom de fichier incorrect 

145 : le fichier existe déjà 

146 : le fichier n'existe pas 

147 : le catalogue est plein 

148 : la disquette est pleine 

149 : la disquette a été changée avec des fichiers ouverts 
150 : le fichier peut seulement être lu 

154 : fin de fichier logique 


Lorsqu'une erreur disque se produit, la variable ERR prend la valeur 32. Pour la fin de 
fichier, nous avons obtenu sur 6128 ERR=24 et DERR=0,. 


| programme 


195 


ANNEXE | 1 


CODES ASCII 


AU EUR ET TP EN Te i1 7 


DLL MID ed Lu OIL Le TILL CD Led 
2 AUOU M UA LL CE De QD ICT) ve ve AO LUI TR EL 
Det tt te IEUCU 
NEA HOMO GeietiX nee Lg Ho DN EE Ep 


PRO te (GLACE CO CU ÉD RE LRU CO ef ILE NON LOU MELON 
Cet ln D D DL OO UC UN LAS CO C6 60 D) TAC et en QI ALAN LD 
QU et feed qe ee ef ae pe med me OS OCTO III 
RENE SX UC 4: > rie v0/ DC 28 mois 
\ # 7 = 

CU OLO MICDe  L0 
COR QE COQ PP CO O7 O9 Qu Poe A OLIT ed De ET) Let De C5 OP LD et ue) CP LD mt De COIEPIEY red 
CURE LA CO CS Fe 69 PILOT) vd EI AIN ICI EE LP 
BNP AGUENX idee tete UE EUR NINIEU CE 

(op Évdéréplér pee etsstap NE OR 

TOUROUUS DUR CNDEUS D LOAIOES 
NOR ee DE LLDLO EL 0 DONS) ei CI CIE A LP 
Cd et er qe en qe pd of OU CC IUT CAS 

OO CU Co ef CH LDCU C0 HT) 
CPE RO Teint © De Ron PR HMS LT té Pol + 


en D RÉ TT QE fe 07) CD LS fe CAO) LD nf Le 9 CPI) Ce CP) CL En CNIL 
Ge US CC) Poe Le ES CO CCE CS) ro et LS VCD NL 
COTE LS ceenf De 09 OIL ee Le LE 077 ef qua nf pe pm mm ef ma de) cd eue) qu of er QT CUT A LITE NET 


Ce) ef LEO LOT 00 C0 cHN ME H k VA MO 
" ti Pan « 3 
OA QD 2,07 FER ERN | 
Lite labels din s CE O RNCS 0 0 CO CO CU CS ef LOU CO ht 


(RO QC) D LEP) D UE) TE RE LAC CDN C0 COLE) CS) vd md ALI NN LD 
C0) RP LP LA LO CO Te CO 00 7) ee ed pe om rm md me en op qe CU TA LSCLTCU A AJ 
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TABLE DES NOTES 

Octave :-1 FRE 
DO 131 
DO DIESE 123 
RE 147 
mi BENMOL 156 
M] 163 
FH 175 
FA DIESE 122 
SL 126 
SOL DIESE 298 
L.A 229 
SI BEMOL 233 
S1 247 
Gctave: FREG 
Ci £62 
DO DIESE 254 
RE 24 
MI BEMOL 311 
MI 235 
FA 345 
FA DIESE 379 
SÛL 39E 
SÛL DIESE 415 
LA 4414 
SI BEMIL dE 
SI d'a 
Octave: 1 FREG 
OO des 
DO DIESE 517 
RE ni 14 
MI BEMOL 622 
MI 539 
FH 533 
FH DIESE F4 
SOL rad 
SÛL DIESE 831 
LA 885 
SI FEMOL CP 
51 355 


PERIODE Octave: 2 


356 
36 
521 
594 
25 
16 
or 
635 
LA 
294 
336 
295 


DO 

DO DIESE 
RE 

MI BEMOL 
MI 

FA 

FA DIESE 

SÛL 
SÛL DIESE 


LA 
SI BEMOL 
SI 


PERIODE Octave: 3 


478 
454 
426 
492 
379 
358 
338 
319 
391 
254 
268 
253 


DO 
Di DIESE 
RE 
MI BEMOL 


SÛL 

SOL DIESE 
LA 

SI BEMOE 
S1 


FERIODE Octave: 4 


233 
24e 
£ 13 
291 
129 
173 
163 
159 
155 
142 
1:34 
ler 


CO 

DO DIESE 
RE 

MI BEMOL 
MI 

FA 

FR DIESE 
SOL 

SOL DIESE 
LA 


S1 BEMOL 
SI 





FREG 


1547 
15534 
1173 
1245 
1519 
1337 
1454 
1565 
1661 
164 
1265 
15r6 


FREG 


c493 
ELTS 
2343 
2453 
2936 
234 
2960 
3136 
3e 


. 


3 
c 
3 
3 


CN fo Ma 
+ 10 


J 
F 
5 


FRES 


4126 
4135 
+699 
43FS 
acr4 
Du En 
2924 
Gérez 
6645 
A4 
433 
942 


PERIODE 


119 
121 
156 
154 
95 
83 
54 
939 
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MESSAGES D'ERREURS 


199 


Si le message d'erreur ne suffit pas pour détecter d'où provient l'erreur, on pensera à 
visualiser les valeurs des variables en “mode direct”. Ceci aidera bien souvent à 


la retrouver. 


Des instructions STOP judicieusement placées permettront également de mieux suivre 
l'évolution des valeurs des variables. On pourra ainsi insérer momentanément des 
instructions de visualisation des valeurs des variables (PRINT “X=";X par exemple). 


La trace (avec TRON), un peu trop riche en informations, ne sera utilisée que dans les 
cas particulièrement délicats. 


Pour obtenir le code erreur, on fera “PRINT ERR” en mode direct. 


Message 


ARRAY ALREADY DIMENSIONNED | 10 | (tableau redimensionné) 


CANNOT CONTINUE 


Code 


Un tableau est à nouveau dimen- 
sionné ou une dimension de tableau 
est déclarée pour un tableau non dé- 
claré explicitement mais créé par BA- 
SIC (avec une dimension 10) parce 
qu'il a déjà été référencé (par une ins- 


truction A(4)=X par exemple). 


17 | (l'exécution ne peut se poursuivre) 


On a tenté de poursuivre l'exécution 


d'un programme qui : 


— a été stoppé à cause d'une erreur 
— a été modifié après une interrup- 


tion. 
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DATA EXHAUSTED 


DIVISION BY ZERO 
DIRECT COMMAND FOUND 


EOF MET 


FILE ALREADY OPEN 
FILE TYPE ERROR 


INVALID DIRECT COMMAND 


IMPROPER ARGUMENT 


LINE DOES NOT EXIST 


LINE TOO LONG 


NEXT MISSING 


Code 


11 
21 


24 


27 
25 


12 


23 


26 


(DATAS épuisés) 

Un READ est exécuté alors qu'il n'y a 

plus de DATA à lire. 

— On a oublié des DATAs 

— On a oublié de programmer 
RESTORE, 


(division par zéro) 


(commande directe) 

Une commande directe sans numéro 
de ligne est trouvée lors d'un charge- 
ment. 


(fin de fichier rencontré) 
Prévoir un test de fin de fichier avec 
“EOF” avant INPUT #9. 


(fichier déjà ouvert) 


(mauvais type de fichier) 
On tente d'ouvrir un fichier program- 
me avec OPENIN. 


(illégal en mode direct) 

L'instruction frappée n'est pas validée 
en mode direct ; elle ne peut être exé- 
cutée que précédée d'un numéro de 
ligne. 


(argument invalide) 

Un paramètre hors du domaine nor- 

mal à une fonction arithmétique ou à 

une fonction chaîne. 

EX. : — argument négatif pour SQR 

— longueur spécifiée dans 

LEFTS, MID$, RIGHTS non 
compris entre 0 et 255. 


(numéro de ligne indéfini) 
Une instruction référence une ligne qui 
n'existe pas. 


(ligne trop longue) 
Une ligne de programme dépasse 255 
caractères. 


(FOR sans NEXT) 
Une instruction n'a pas de NEXT as- 
sOCié. 


Message Code 


MEMORY FULL 7 


OPERAND MISSING 22 
OVERFLOW 6 
RESUME MISSING 19 
SUBSCRIPT OUT OF RANGE 9 
SYNTAX ERROR 2 
TYPE MISMATCH 13 
UNEXPECTED NEXT 1 
UNEXPECTED RESUME 20 
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(plus de mémoire centrale) 

Il n'y a plus assez de place en mé- 

moire centrale. 

— On doit supprimer une partie du 
programme ou les tableaux. 

- La structure des boucles est trop 
compliquée. 


(opérande manquant) 
I| manque un opérande dans une ex- 
pression. 


(dépassement de capacité) 

On a tenté de donner à une variable 
entière une valeur non comprise entre 
— 32768 et +32767. 


(pas d'instruction RESUME) 

Une instruction END a été rencontrée 
dans un programme de traitement 
d'erreur. 


(référence en dehors du domaine) 

Un tableau est référencé en dehors de 
ses dimensions. Souvent, pour un ta- 
bleau non déclaré qui a été dimen- 
sionné à 10 par BASIC parce que 
référencé (par une instruction A(4)=X 
par exemple). 


(erreur de syntaxe) 

La ligne contient une erreur de syn- 
taxe : 

— parenthèses non appairées 

— ponctuation incorrecte 

— instruction n'existant pas 

— etc. 


(désaccord entre numérique et chaîne) 
Une valeur numérique est affectée à 
une chaîne où l'inverse. 


(NEXT sans FOR) 

Une variable dans un NEXT ne cor- 

respond à aucun FOR. 

Ex. : La ligne FOR correspondante a 
été effacée sans le NEXT asso- 
cié. 


(RESUME sans ON ERROR) 
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UNEXPECTED RETURN 


UNKNOW COMMAND 
UNKNOW USER FONCTION 


WEND MISSING 


Code 


28 


29 


(RETURN sans GOSUB) 

— On est “entré” dans un sous-pro- 
gramme par GOTO (au lieu de GO- 
SUB). 


— On est “entré” dans un sous-pro- 
gramme par erreur parce que l'on a 
oublié STOP ou END à la fin de 
l'exécution de son programme (de- 
vant un SOus-programme). 


(commande inconnue) 

(fonction utilisateur indéfinie) 

Une fonction FN est appelée avant 
d'être définie par DEF FN. 


(WEND manquant) 
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INDEX 





Er PRE ENT US Ds eness sous ais 119 Mess cuves peses 35 
EE cote 000 ÉE7 DRE TAN ANS 41 KEY, . 36 
AMSDOS. ,..,.,.,185 : À NN 160 KEY DEF. + 
PMP sous vies 194 se cons xs WU METRE vannes 57 
Ps sua ni ZE DIR: : : RARE VE. Ébiuue sorDe sets ai 6 
D ado mue VERTE sie DE: PEUT E 173 LINE INFUT: Ç 


1 


ATN............ gi DISC. OUT... 173 LINE INPUT#S. 
AUTO... ....... 15 DISCCOPY 161 LIST 


6-8: LU br si9. + br 4 


[al M bat 
1 


BANEFIND., ...... 175 BISCRTES. 2 sou 108 Re so de 03 Ê 
EANEOPEN. ..,... 175 DISCRT TS: 15: 160 LERE: sus mess 2e SE 


ON 'TUR CCR RU 


CANKÉREAD. .. ,,.. 17! 
BANEURITE., .... EL 
RINS,..,,,.,.,.6 
BORDER MAP POUTT 26 
i 
i 
1 


LLARESQ db be G%Ib 


w” [ER F1 F2 10 


SE DE Re ME 122 MR cons psc ces 


CHARS. ........ 6 ÉMsece marais 76 ML rene nues mars 22 
RE ane petes | + Le 76 MODE an aus 22 
CLEAR. ......... 16 EVERY 118 MOVE 32 
Élus sons jorsi à 34 EXP. .&i nent cent 17 


88 M2 2 EE FILECOPY. 161 en e-peice pes 43 
CLOSE IN . nn, Nr 157 SCO NS 27 ON EREGK CONT.. 192 
nt ao ON BREAK STOF, SG 
| ON ERROR . 7E 
3) SR ON GOSUE 74 
COPYCHRE. 


F4 
"ni 
[a 
AJ 29 3 
pc 
LD 
4 
= 


LL. 0 dd vb 0-06 € °°. 


mt (NN pot tort Jaudr 

l 

Hs 
TES ù F4 

T1 
T> 
ar 
m1 
bete 


COPYDISE. .... 187  ERAME.......... DES sus sm Li 
29 7 NN Î PRE =. ue ce eue OPENIN. . ... .... 121 
CPlis mu exe ex à GOÜSUE. . . mL £: CGPENDUT,,...... Lei 
CRÉPIN Aa au si CRAPHICS PAPER 190 OS scans page ZE 


CSAVE.  __.. .,. 165 GRAPHICE PEN... 190 ORIGIN: sue sue 54 
CURSOR. ,....... 141 HEXS. 1.68 QUT 
DAME sus era oh HIMEM PR PALETTE HET: 


DAT 


DATE... ,.....1884 A 41 PAPER. : +... PE 
DEF FM... sn Be TRREVS pinins FT BEN 1 “4 


DB-m 481 10 D. CL IIT Ci m8 


DEFINT. ' INP RÉ Te m7 rene i 
CEFRESL. . ...... £ INPUT. .__... E2 Fir HA 
RER. ou à | INEUTHS. Spa 121 Fi Î 
DÉÉERRuxs suis sat MSG d'a Do El ME soranuc S 
MR LES SAS SES 192? L 2. : ANNEE D 2 RÉMREE NRES SE 5 


D OUI DAS PI MILIEU PLIU 


"+: + = 6 +, =... .6 
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Pus, _ 33 CETKEYS,.., _....18? PR us sas pue à S4 
PRINT. .....,... =E SÉFEST sus ca : 182 À À à CNP CPS 117 
FRINTHS. 121 BON: Soee soue 82 TROFF. is 
RANDOMIEE. 30 SHOW. ..,....... 154 FO css secs à ie 
RELEASE. ,...... 113 SIN PAR RE 5? MP ni sis a 164 
REMAIN. .,...... t1E DÉONES. us cure 5009 À À 2 < INA SIENNE ii 
REN. .... as 154 SPACES MÉRATQUE » d 2 En mme st 87 
RENSME. ........ 151 SPEED INE. 2 UPPERS, ,... ... 62 
RENE da pes 7 SPEED KEY... ... #7 Ru max ra F2 
RESTORE. .... 48 SPEED WRITE.. if Ans ue je ES 
RESUME, 7E PR RES UES SUD 112 PS, eue moe DT 
RM ous, 2x 7 SER. ......... 5? WAIT._........ 37 
RIGHTS... 57 STAT....,...... 18? unes 4Ë 
END... 83 DR ess ml 53 CAES s SPP TR TUI 13 
ROUND, .,. .,:. a7 STRINGS. ....... EX WIDTH. ,..,..... 70 
PR man unie tes ji EUBMIT 18 WIRDOW. 30 
SAVE: 5. ou i£ SYMEOL “Agen 103 WINDOW SYAP. .. 31 
SBVE. ic SYMBOL AFTER... 10% RIT sen 53 
SAVE 169 |: ieaghemg 35 DORE Rés unes 
SCREENCOPY. 77 TAGOFF. 36 KOR...,...,.... 2? 
SOREENSUAP 175 FÉN., ........... 87 PUR sou vues cn 
15 FN 153 TPE vues 17% MR sus dune 2, 97 
SET UP ES TOPELIN 0 172 ÊBNE. _.,...., . ET 


SETDEF PAGE... . 163 TAPE. OUT: ac 172 


Pour approfondir vos connaissances en BASIC, et mieux connaître le 
système des CPC 464, 664 et 6128, ainsi que du PCW 8256, P.S.I. vous 
propose une palette d'ouvrages utiles. 


POUR MAITRISER LE BASIC AMSTRAD 


0 


Basic Amstrad, 2. Programmes, par Jacques Boisgontier (Editions 
du P.S.i.) 

Pour pratiquer le Basic Amstrad, cet ouvrage donne de nombreux 
programmes de gestion, d'éducation et de jeu où le rôle des fichiers est 
expliqué et largement commenté. 


Basic Plus, 80 routines sur Amstrad, par Michel Martin (Editions du 
P.S.I.) 

Pour pousser votre Amstrad au maximum de ses capacités : 80 routines 
de simulation d'instructions qui n'existent pas en Basic Amstrad. 


Périphériques et gestion de fichiers sur Amstrad, CPC 464, 
664 et 6128, par Daniel-Jean David (Editions du P.S.I.) 

Cet ouvrage s'adresse aux lecteurs, déjà initiés à l'Amstrad, souhaitant 
programmer tous les périphériques des CPC 464, 664 et 6128, et 
programmer des applications utilisant des fichiers sur cassette ou 
disquette. 


POUR MIEUX CONNAÎTRE LE SYSTÈME DES CPC ET DU PCW 8256 


0 


Clefs pour Amstrad, 1. Système de base, par Daniel Martin 
(Editions du P.S.I.) 

Mémento présentant synthétiquement le jeu d'instructions du Z80, les 
points d'entrée des routines système, les connecteurs et brochages, etc. 
Le livre de chevet du programmeur sur Amstrad. 


Clefs pour Amstrad, 2. Système disque, par Daniel Martin et 
Philippe Jadoul (Editions du P.S.I.) 

Ce deuxième tome consacré au système disque présente les points 
d'entrée des routines disque, les blocs de contrôle, la programmation et les 
brochages des circuits spécialisés. La deuxième partie du livre est aussi 
destinée aux possesseurs d'Amstrad 8256. 


CP/M Plus sur Amstrad, par Yvon Dargery (Editions du P.S.I.) 
Toutes les commandes CP/M et CP/M Plus pour maîtriser le système des 
6128 et 8256: un ouvrage de référence illustré par de nombreux 
programmes. 


Le livre de lAmstrad, tome 1 — par Daniel Martin et Philippe Jadoul 
(BCM — diffusé par P.S..) 

Ce livre, destiné aux programmeurs des CPC 464 et 664, donne une étude 
complète de tous les circuits internes, et analyse la structure interne du 
BASIC. Vous y trouverez, en outre, une étude complète des RSX, et des 
programmes de scrolling, de traçage de rectangles, de coloriage de 
surface et de manipulation vectorielle. 


Achevé d'imprimer en octobre 1988 
sur les presses de l'imprimerie Laballery 
58500 Clamecy 
Dépôt légal : octobre 1988 


N° d'impression : 810004 
N° d'édition : 86595-230-6 
ISBN : 2-86595-230-4 


À VOTRE SERVICE 





DISQUETTE D'ACCOMPAGNEMENT 


Certains ouvrages font l'objet d'une disquette d'accompagnement reprenant les programmes contenus dans le livre 
ou les applications associés. Pour les obtenir, reportez-vous à la page "disquette d'accompagnement" insérée au 
début de chaque ouvrage possédant une disquette. 


EN COMPOSANT LE 3615 CODE OI % LIV 
NOTRE SERVICE MINITEL VOUS PROPOSE 


- de vous renseigner sur notre catalogue et toutes nos nouveautés 
- de vous indiquer le plus proche point de vente 
- de répondre à vos questions techniques concernant nos ouvrages grâce à la messagerie P.S.I. 


CATALOGUES ET "LIVRES MICRO" 


Vous pouvez recevoir chez-vous les catalogues complets de nos ouvrages et être abonné gratuitement à la 
revue “Livres Micro". Pour ce faire, envoyez le coupon ci-dessous à : 
De Editions P.S.L 6-10 boulevard Jourdan - 75014 PARIS 


VOTRE AVIS NOUS INTERESSE 


Je désire recevoir gratuitement : [TJ vos catalogues [7 la revue “Livres Micro* 

Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques et vos suggestions sur le présent 

ouvrage. 

Titre de l'ouvrage : 
- Ce livre vous donne t-il toute satisfaction ? 








- Ÿ at-il un aspect du problème que vous auriez aimé voir aborder ? 
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Prolession 22222222 Centre d'intérêt : (} PC 
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BASIC AMSTRAD 
CPC 464, 664 
ET 6128 


1. MÉTHODES PRATIQUES 














C: ouvrage s adresse à vous qui, de plus en plus nombreux, 
avez déjà pratiqué le BASIC et qui souhaitez pousser votre 
Amstrad à son meilleur niveau de performance. 


V... découvrirez, grâce à de nombreux programmes- 
exemples, toutes les instructions des CPC 464, 664 et 6128 au fur 
et à mesure de vos besoins, ainsi que les avantages spécifiques 
à votre ordinateur : jeu d'instructions très complet, gestion des 
interruptions en BASIC, sortie stéréo ou haut-parleur intégré, etc. 


L. deuxième partie comprenant des programmes de 
graphisme et de gestion fera ressortir la 
richesse de la palette de couleurs en 
haute résolution et la rapidité d'exécution 
de l'Amstrad. 
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